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ABSTRACT 


Two-dimensional  experimental  and  numerical  simulations  of  a  transonic  fan  blade 
passage  were  conducted  at  a  Mach  number  of  1 .4  to  provide  baseline  data  for  the  smdy 
of  the  effects  of  vortex  generating  devices  on  the  suction  surface  shock-boundary  layer 
interaction.  In  the  experimental  program,  a  probe  and  traverse  system  were  designed 
and  constructed.  A  new  data  acquisition  s>'stem  was  adapted  to  record  data  from  probe 
surveys  and  multiple  scans  of  static  pressure  ports.  Impact  pressure  behind  two  model 
fan  passages  and  static  pressures  across  the  shock-boundary  layer  interaction  were 
measured  for  a  design  incidence  and  one  off-design  incidence  in  a  blow-down  wind 
tunnel.  The  passage  shocks  were  positioned  in  similar  locations  by  rotating  the  model  to 
a  decreased  flow  incidence.  Fan  passage  losses  were  obtained  by  integrating  the  probe 
measurements.  The  losses  compared  favorably  with  a  numerical  Navier-Stokes  solution 
and  one  engineering  model.  Static  pressure  distributions  were  also  found  to  compare 
favorably  with  numerical  results. 
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1.  INTRODUCTION 


A.  SHOCK-BOUNDARY  LAYER  INTERACTION 

The  demand  for  liiglier  levels  of  thrust  and  the  desire  to  limit  the  physical  size  of 
turbofan  engines  have  combined  to  drive  fan  and  leading  compressor  stage  relative  Mach 
numbers  higher  into  the  supersonic  range.  A  shock  system  is  inevitable  in  a  transonic 
stage  and  "...  the  design  principle  is  not  the  avoidance  of  shocks,  but  control  of  their 
locations  and  strengths  so  as  to  minimize  aerodynamic  losses."  [Ref  1]  At  operating 
conditions  in  such  a  stage,  a  shock  forms  at  the  leading  edge  of  each  blade  and  impinges 
on  the  suction  side  boimdary  layer  of  the  adjacent  blade.  The  resulting  flow  structure  is 
illustrated  in  Figure  1.  The  subsonic  portion  of  tlie  boundary  layer  may  not  be  able  to 
negotiate  the  steep  pressure  gradient  in  the  neighborhood  of  the  shock  and  may  separate 
locally  and  reattach  at  some  point  downstream.  This  results  in  a  shock  stmcutre  called  a 
lambda-foot  where  the  original  normal  shock  branches  into  two  oblique  shocks  near  the 
wall.  In  a  fan  passage,  reattachment  must  take  place  in  a  very  small  percentage  of  the 
chord  to  allow  further  diffusion  to  the  design  pressure  ratio. 

Characterization  of  tlie  opposing  loss  mechanisms  present  in  this  flow  regime  are  of 
interest  to  the  designer.  The  size  of  the  interaction  will  determine  the  noimal  shock 
losses  and  the  behavior  of  the  boimdary  layer.  As  the  interaction  is  suppressed,  high 
normal  shock  losses  dominate.  If  the  interaction  region  is  large  then  the  boundary  layer 
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will  thicken,  mixing  losses  will  increase  and  the  design  flow  turning  angles  will  not  be 
achieved. 


B.  BOUNDARY  LAYER  CONTROL 

Several  promising  methods  for  controlling  the  shock-boundar>'  layer  interaction 
have  been  examined  recently  [Ref.  2].  Among  these  are  vonex  generator  jets  (VGJ's), 
low'-profile  vortex  generators  and  the  passive  cavity.  The  first  two  devices  energize  the 
low  momentum  flow  nearest  the  wall  with  higher  momentum  flow  via  streamwise 
vonices.  This  provides  the  inner  layer  with  enough  momentum  to  overcome  the  adverse 
pressure  gradient  transmitted  forward  through  the  subsonic  layer.  The  passive  cavity 
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iiidnces  suefioii  downstreaiii  of  (lie  sli(,)ck  ;iiid  iiiieclioi!  iipsiicatii  id  (lie  sliock  wliicli 
lediices  (lie  scpaiatioii  region  wliile  iiicieasing  boimdaiy  layer  iliickiiess  |  Rel.  3!- 

(JoiiveiKioiial  vanc-(3pe  vc'itex  geiieialois  liave  been  studied  since  (lie  nineleeti 
rifties.  NA( 'A  first  iiivesligaled  tlieir  nsefnlness  for  contiolliiig  How  sepaialion  and 
sliock-boiuidary  layer  interactions.  The  low-profile  vi'ile.K  geiiera(oi  is  lelalively  new 
and  ofTers  promise  of  rednciiig  separation  with  less  parasitic  drag  than  conventional 
vortex  generators  [Ref.  3],  Examples  of  such  devices  are  the  "Wheeler  I  )oiiblef'  [Ref  4| 
and  lire  "wishbone"  profile  low-profile  vortex  geneiators  both  e.xaniined  by  Linn,  et  al 
and  shown  in  Figure  2  [Ref.  2].  These  voitex  generators  aie  snbmerged  in  the  boniidary 
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layer  many  Iv'iiiidaiy  layer  lliickites'ief^  iipslream  ol  (lie  sliock-boiindaiy  la)ei  iiileiaclioii. 
I'l'r  exieiiial  flows  over  srirlaces  and  iiiienial  llcnv  in  diffusers  lliese  wed^e  shapes  would 
be  easy  lo  apply,  bnl  there  may  be  mme  difncnliy  in  applying  (hem  (*'  fan  blades  with 
adequate  precision. 

VCiJ'.s,  shown  in  Figure  have  been  sindied  e.Ktensively  by  .h'hiision  and  Nishi  as 
well  as  jf'hnsh'ii  and  Compton  [Ref  >.  b|.  Vril's  are  pitched  and  skewed  to  the 
slreamwise  direction  and  can  be  pa.ssively  or  actively  ('peiated.  In  studies  completed  in 
subsonic  flows  they  provide  the  largest  voiticity  when  pitched  at  about  fdity-five  degiees 
and  yawed  between  forly-rive  and  ninety  degrees,  fhese  jets  can  be  implemented  in  the 
fan  application  simply  by  drilling  holes  through  blading.  In  passive  ('peiatic'ii  the  jet 
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would  pass  high  pressure  air  from  the  pressure  surface  to  the  suction  surface.  An 
alternative  approach  would  be  to  actively  provide  air  to  the  jets  through  tlie  blade  only  in 
the  transonic  range  of  operation.  In  both  cases  blade  strength  would  be  an  issue  and  in 
the  active  case,  mechanical  complexity  would  be  added. 

The  passive  cavity  is  illustrated  in  Figure  4.  Passive  cavity  operation  is  described  as 
follows.  "The  pressure  rise  across  the  shock  induces  a  passive  suction  downstream  of  the 
shock,  which  tends  to  close  down  the  separation  bubble,  and  an  injection  of  flow 
upstream  of  the  shock,  causmg  a  series  of  compression  waves  to  form  (resulting  in  more 
isentropic  compression)  and  the  pressure  rise  to  spread  over  a  larger  axial  distance 
(which  tends  to  suppress  separation)."  [Ref.  3] 
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C.  2-D  FAN  PASSAGE  SIMULATION 


The  effects  of  various  flow  control  devices,  including  vortex  generators,  on  the 
shock-boundary  layer  interaction  have  been  examined  by  McCormick  [Refs.  3,  7]  in  a 
round  tube  geometry.  In  tlie  present  work,  it  is  planned  to  examine  tlie  most  promising 
configurations  shown  in  McCormick's  results  in  a  model  simulation  of  the  flow  in  a  fan 
passage.  The  present  work  is  an  extension  of  smdies  performed  by  Golden  [Ref  8]  and 
Collins  [Ref  9].  The  wind  hmnel  used  in  the  present  work  was  designed  by  Demo  [Ref 
10]  and  first  used  for  blading  studies  by  Hegland  [Ref  11).  The  data  acquisition  system 
designed  by  Wendland  [Ref  12]  was  adapted  and  implemented  in  the  course  of  the 
present  study. 

The  geometry  of  the  model  was  intended  to  generate  a  2-D  simulation  of  the  relative 
flow  on  a  stream  surface  through  an  advanced  fan  rotor  at  approximately  63%  of  the 
span.  The  geometry  of  the  model  is  shown  in  Figure  5.  The  blade  profile  was 
approximated  very  closely  as  a  wedge  arc  for  ease  of  manufacture,  and  since  streamline 
contraction  could  not  be  simulated  in  the  experiment.  Measurements  made  by  Golden 
showed  the  flow  through  the  model  passage  to  be  acceptably  two  dimensional  [Ref  8]. 

In  the  current  study,  an  impact  pressure  probe  and  vertical  traverse  were  designed 
and  manufactured,  and  the  "Zero  Operate  and  Calibrate"  (ZOC)  Data  Acquisition  System 
(DAS)  developed  by  Wendland  [Ref  12]  was  adapted  to  acquire  data  from  probe  surveys 
and  multiple  scans  of  static  pressure  ports  in  order  to  estabhsh  a  baseline  performance  of 
the  unmodified  blade.  This  system  was  then  implemented  on  the  wind  tunnel.  With  the 
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model  at  design  incidence,  surface  pressure  distributions  and  impact  pressure 
distributions  impact  pressure  distributions  behind  the  lower  and  middle  blade  were 
measured.  Cascade  losses  were  obtained  b>’  integrating  the  probe  measurements.  When 
it  w’as  discovered  that  similar  shock  locations  in  tlie  two  passages  could  be  obtained  by 
rotating  the  model  to  a  decreased  flow  mcidence,  static  and  impact  pressure  profiles  were 
obtained  at  this  condition.  The  measured  behavior  was  analyzed  and  comparisons  were 
made  with  computational  simulations  and  one  engineering  loss  model. 

In  the  present  report,  the  wind  tunnel  and  model  simulation,  the  probe  design  and 
DAS  modification  are  described  in  Chapter  II.  In  Chapter  III,  the  experimental  program 
and  results  are  presented.  A  computational  simulation  of  the  blade  geometry  is  presented 
in  Chapter  IV  and  in  Chapter  V,  the  experimental  and  numerical  results  are  compared. 
Chapter  VI  provides  conclusions  based  on  the  progress  of  the  current  smdy  and 
recommendations  for  future  work. 
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II.  EXPERIMENTAL  SIMULATION 


A.  TRANSONIC  CASCADE  WIND  TUNNEL 
1,  Wind  Tunnel  Description 

The  wind  tunnel  used  was  a  blow-down  apparatus  located  in  the  Gas  Dynamics 
Laboratory  (Bldg.  216)  at  the  Naval  Postgraduate  School.  A  schematic  of  tlie  facility  is 
shown  in  Figure  6.  A  schematic  of  the  wind  timnel  and  a  photograph  of  the  timnel  are 
shown  in  Figures  7  and  8,  respectively. 
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Figure  7.  Schematic  of  the  Transonic  Wind  Timnel 


Figure  8.  Transonic  Wind  Tunnel 
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1  ho  wind  liiiiiiei  iiiiet  piessiiie  was  iiiaiiilained  I’v  a  piieiiiiialioally  cpeialed 
cciiliol  valve.  I  lie  lest  section  back  pies.sme  leqiiiied  to  simiilale  fan  pie.ssiiie  lalios  was 
adjusted  using  a  liaiKl-operated  liydiaiilic  Hap  valve  iiiounied  all  ol  the  lest  section,  ['he 
valve  is  shown  nt  I'igtne  'b  A  conveigeitt-diveigeiit  noz/le  ptovided  a  Mach  1.4  (ii'w  to 
the  test  secliott  iitlet.  A  test  section  .scitetitatic  and  piiotogiapli  aie  shown  iit  Figtties  Id 
and  1  I  lespectively.  Boundaiy  laj’et  scoojis  were  piovided  oit  the  tipper  and  lower  as 


Figure  9.  Back  Pressure  Valve 


well  as  rigid  and  lell  sides  of  the  te.st  section  in  order  to  divert  the  bontidaiy  layers  Irotti 
lite  tiiodel.  l  ire  test  section  ttiodeled  two  fatt  passages,  hetweett  tlnee  latt  blade.s.  I'lie 
middle  blade  in  the  model  was  the  otily  complete  blade,  while  the  upper  attd  lowet 
sections  were  half  blades,  itiodeling  otily  lower  and  upper  surfaces  lespectively.  flie 
incidence  of  Uie  model  cotild  be  varied.  The  blade  upper  surface  was  inclined  1.15 
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degrees  to  die  freestieaiii  flow  at  tlie  design  condition,  wliile  llie  blade  wedge  angle  was 
3.5  degrees.  Fnrtlier  detads  of  tJie  wind  tunnel  c;ui  be  found  in  Ref.  o.  details  of  the 
back  pressine  valve  design  are  contained  in  Ref.  8. 


Figure  10.  Test  Section  Schematic 
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2.  Optical  system 

The  optical  system  provided  both  schlieren  and  sliadowgraph  capabilities.  A 
diagram  of  the  arrangement  used  is  shown  in  Figure  12.  A  continuous  or  spark  light 
source  was  available  from  a  combination  unit.  A  parabolic  lense  collimated  the  light, 
directing  it  through  the  test  section  and  into  a  parabolic  mirror  where  the  beam  was 
reflected  into  the  camera.  Shadowgraph  photos  were  made  during  selected  hinnel  runs  to 
record  the  shock  position  and  shock  structure. 


Continuous  Spark  Light 

Light  Control  Control/Power  _ 

_  Test  S  ection 


Mirror 


Figure  1 2.  Optical  System 
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B.  TEST  SECTION  INSTRUMENTATION 


1.  Static  Pressure  Taps 

Pressure  taps  were  provide  on  side  plates,  window  blanks  and  the  lower  blade 
as  described  by  Golden  [Ref.  8],  Two  side  plate  pressure  taps  were  used  to  measure  the 
inlet  and  exit  static  pressures.  The  lower  blade  centerline  pressure  taps  were  used  to 
measure  the  static  pressures  across  the  shock-boundary  layer  interaction  region  as  well  as 
to  measure  possible  flow  field  disturbance  caused  by  probe  surveys.  Aluminum  window 
replacement  blanks  were  insuumented  in  a  fashion  that  would  provide  similar 
information  to  that  of  the  lower  blade.  Table  I  summarizes  the  pressure  lap  locations. 
Drawings  of  the  instrumented  components  are  given  in  Appendix  A. 


TABLE  1.  STATIC  PRESSURE  TAP  LOCATIONS 


Section 

Ports 

Location 

Purpose 

Side  Plates 

2 

_ 

25 

Upstream/do\\n- 
stream  of  test 
section 

'  Cenierlme  of 
blade  surface 

Measure  cascade 
pressure  ratio 

Lower  Blade 

Measure  static  ! 
pressure  through 
shock 

Window  Blanks  | 

8 

Close  to  blade 
surface  j 

[ 

1 

Plenum  1 

1 

Plenum,  aft  of 
screen 

_ 

Provide  tunnel 
Reference 
pressure 
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2.  Impact  Probe  and  Vertical  Traverse 

A  probe  was  designed  and  mounted  in  a  vertical  traverse  for  conducting 
pressure  surveys  downstream  of  the  cascade  model.  The  probe  was  an  impact  tube  with 
0.02  inch  internal  diameter  and  a  0.032  inch  external  diameter.  It  was  mounted  in  a 
probe  holder  designed  to  cause  minimum  disturbance  to  the  flow.  The  probe  and  holder 
are  shown  in  Figures  13  and  14.  The  probe  holder  was  mounted  on  a  solid  shaft  that 
passed  out  of  the  test  section  through  a  bearing  surface  and  connected  to  a  mounting 
block.  This  mounting  block  was  then  bolted  to  the  mounting  block  of  a  VELMEX 
UNISLIDE  Motor  Driven  Assembly.  The  entire  assembly  is  shown  Figure  15.  The 
assembly  consisted  of  a  hardened  aluminum  dovetail  base  with  an  aluminum  sliding 
element  fitted  with  bonded  bearing  pads.  A  high  precision  lead  screw  converted 
rotational  motion  to  linear  motion  for  up  to  6.6  inches  of  travel.  Further  details  are  given 
in  Reference  13.  Drawings  for  the  probe  and  UNISLIDE  assembly  are  contained  in 
Appendix  B. 
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Figure  13.  Impact  Probe  and  Probe  Holder 


Figure  14.  Impact  Probe  and  Probe  Holder 


Figure  15.  Probe  Traverse  Assembly 
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C.  DATA  ACQUISITION  AND  ANALYSIS  SYSTEM 


1.  Pressure  Measurement  System 

The  pressure  measurement  system  consisted  of  three  mam  elements;  namely  the 
"Zero  Operate  and  Calibrate"  (ZOC-14)  Data  Acquisition  System  (DAS)  for  recording 
pressure  data,  a  continuous  pressure  monitoring  sj’stem  for  setting  pressure  ratio  prior  to 
data  taking  and  the  VELMEX  NF90  Stepper  Motor  Controller  which  operated  the 
UNISLIDE  Motor  Driven  Assembly  to  provide  probe  surveys  behind  the  test  section 
blading.  A  schematic  of  the  pressure  measurement  system  is  shown  in  Figure  16.  The 
present  application  of  this  system  was  an  extension  of  the  work  done  by  Wendland 
[Ref  12]. 

a,  ZOC-14  Data  Acquisition  System 

The  Zero  Operate  and  Calibrate  (ZOC)  Data  Acquisition  System  (DAS) 
consisted  of  the  HP9000  Series  300  Desk  Top  Computer  System,  three  Scanivalve 
ZOC-14  Electronic  Scanning  Modules,  the  CALSYS2000  calibration  standard  and  the 
HP6944A  Multiprogrammer.  The  HP  9000  Series  300  Desktop  Computer  acted  as  the 
master  controller  for  the  system  as  well  as  a  data  storage  and  processing  tool.  Extensive 
documentation  provided  with  this  language  is  described  further  in  Reference  12.  The 
HP9000  is  equipped  with  10  mega- bytes  of  Random  Access  Memory  and  a  40  mega- byte 
liard  drive  as  well  as  a  1.44  mega-byte  floppy  drive.  HP  Basic  version  5.13  software  was 
used.  A  comprehensive  guide  to  the  system  is  given  in  Reference  12. 


18 


Figure  16.  Data  Acquisition  S>'5tem  Schematic 


b.  Pressure  M on  itoring  System 

The  Pressure  Monitoring  System  allowed  the  tunnel  operator  to  set  the 
pressure  ratio  across  the  cascade  prior  to  recording  data  by  providing  a  continuous 
display  of  the  test  section  inlet  (PI)  pressure,  exit  pressure  (P2)  and  exit  to  inlet  pressure 
ratio  (P2/P1)  to  the  screen  of  the  HP9000.  This  was  implemented  using  two  100  PSID 
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transducers,  multi-port  signal  conditioner,  a  Digital  Voltmeter  (HP3455A),  Data 
Acquisition/ Control  Unit  (HP3497A)  and  the  HP9000  Series  300  Computer.  The 
HP9000  provided  program  control  for  the  controller  and  the  voltmeter.  Details  on  the 
programming  of  these  devices  are  contained  in  Reference  14  and  15. 

c.  NF90  Stepping  Motor  Controller/Unislide  Motor  Driven  Assembly 

The  VELMEX  Stepping  Motor  Controller  and  the  UNISLIDE  Motor 
Driven  Assembly  provided  a  fully  programmable  and  highly  precise  traverse  mechanism. 
The  NF90  Stepper  Motor  Controller  could  operate  in  a  "stand  alone"  mode  or  an 
"interactive  mode".  A  three  wire  serial  RS-232C  port  allowed  the  host  controller  to  enter 
commands  and  data,  poll  for  stams  and  read  position  information.  It  was  capable  of 
operating  up  to  three  stepper  motors  as  well  as  being  daisy-chained  with  multiple  NF90's. 
It  had  a  400  step  (0.9  degree)  resolution,  which  equated  to  a  0.025  inch  linear  resolution 
for  the  lead  screw  that  was  used.  Other  features  of  interest  in  the  present  study  were  its 
programmable  baud  rate,  speed  control,  poll  for  status,  and  return  to  zero  position 
commands.  Further  details  concerning  the  NF90  Stepping  Motor  Controller  are 
contained  in  Reference  16.  Though  provided  with  IBM  compatible  controller  software  it 
was  fully  compatible  with  the  HP9000  equipped  with  an  RS-232C  port.  The  serial  port 
used  was  separate  from  the  port  used  for  the  CALSYS2000  and  was  made  available  by 
installing  the  As>'nchronous  Serial  Interface  (HP98644A)  expansion  card  into  the 
HP9000  [Ref.  17]. 

The  UNISLIDE  Motor  Drive  Assembly  was  model  number  MB2509P40J 
with  a  Bodine  #2010  (2410)  Drive  Motor.  A  precision  roll- formed  lead  screw  held  by 
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preloaded  ball  bearings  drove  a  low  friction,  adjustable  anti-backJash  nut.  The  lead 
screw  provided  m  lire  model  P40J  allowed  capabilities  outlined  m  Table  II.  Installation 
and  maintenance  mstructions  for  die  VELMEX  UNISLIDE  are  comamed  m  Reference 
13.  The  NF90  and  UNISLIDE  are  siiowm  ui  Figure  1~ 


Table  II.  UNISLIDE  LEAD  SCREW  PARAMETERS 


UNISLIDE 

[Advance/ 

'Advance/ 

Speed  at  10(H) 

Lead  Screw 

i  Revolution 

iStep 

Steps/Second  , 

P40.C 

10.025  mches 

10.0000625 

0.0625 

- 

‘  mches 

mches'second  ' 

2.  Data  Acquisition  and  Analysis  Programs 

a.  The  Data  Acquisition  Program”  SCAN _ZOC_06" 

Program  "SCAN_ZOC_06"  was  developed  to  provide  the  data  acquisition 
options  shown  in  Table  III.  The  program  was  an  adaptation  and  extension  of  the 
''SCAN_ZOC_05"  program  developed  by  WendJand  [Ref.  12].  The  extensions  mvolved 
adding  commands  to  provide  coiitmuous  momtoring  of  the  cascade  pressure  ratio  prior  to 
acquiring  data  witli  the  ZOC  sy'stem  and  commands  to  control  tlie  probe  traverse.  The 
development  and  description  of  the  new  software,  program  listing  and  operating  manual 
are  given  in  Appendix  C. 


Table  III.  SCAN  TYPES  AVAILABLE 


Scan  Type 

Purpose 

Options 

Comments 

0 

Single  Scan  of 
allZOCs 

Number  of 
Samples  up  to 
1021 

Original 

SCAN_ZOC_05 

operation 

1 

-  1 

Multiple  Scans 

ofallZOC's 

Number  of 
Samples  Avail, 
based  on 
1021/#Scans 

Allows  multiple  I 
Successive 
Observations 

0 

Probe  Survey  of 
Lower  Blade 

Scans  =  33 
Samples  =10 

Parameters 
"hard  wired"  ! 
to  avoid  probe 
damage  | 

3 

Probe  Survey  of 
Middle  Blade 

M  1 

i 

! 
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b.  The  "READ_Z0C2"  Data  Reduction  Program 

The  "READ_Z0C2"  program  was  an  adaptation  of  the  "READ_ZOC" 
utihty  program  given  m  Reference  12.  The  previous  version  was  developed  to  examme 
ZOC  data  to  verify  the  ZOC-14  DAS  performance.  The  current  version  was  specifically 
developed  to  analyze  data  taken  from  the  Transonic  Cascade  Wind  Tunnel. 
"READ_ZOC2"  convened  the  acquired  ZOC  voltage  data  to  pressures  in  psia.  It 
provided  a  print  out  of  data  indexed  to  each  port  and  scan  taken,  saved  pressure  data  to 
an  ASCII  file,  plotted  surface  pressures  normalized  by  inlet  total  pressure  versus  percent 
of  chord,  plotted  displacement  versus  probe  survey  pressure  and  calculated  the  mass 
averaged  loss  coefficient.  This  program  is  listed  in  Appendix  D.  Output  from  this 
program  is  shown  in  Appendix  E  and  referred  to  in  Chapter  III, 
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III.  EXPERIMENTAL  PROGRAM  AND  RESULTS 


A.  EXPERIMENTAL  PROGRAM 

The  program  of  tesrs  is  summarized  in  Table  VI,  After  mitial  tests  to  verify  the 
probe  and  traverse  mechamsm.  and  data  acquisition  and  control  program  operation, 
probe  and  surface  pressure  measurements  were  acquired  with  the  model  at  design 
incidence  and  with  mcidence  increased  by  2  degrees.  The  latter  condition  w'as  found  to 
give  similar  shock  patterns  in  the  upper  and  lower  passages  at  the  design  pressure  ratio. 
Useful  test  data  are  given  in  Appendix  E. 

1.  Initial  Tests 

Eleven  preliminary  tests  were  conducted  with  the  model  set  at  the  design 
mcidence.  The  shadowgraph  system  was  adjusted  optimally  and  experience  was  gained 
in  operating  the  back  pressure  control  valve  to  position  the  passage  shocks  in  the  model. 
Data  acquisition  procedures  using  tlie  ZOC-14  DAS  were  e.xercised  and  verified  by 
comparmg  with  measurements  reported  in  Reference  8.  Also,  multiple  scans  of  blade 
surface  taps  revealed  less  than  1%  uncertainty  (see  Figure  El.  page  124).  When  shocks 
were  positioned  and  data  were  taken,  the  pressure  ratio  across  the  blading  was 
approximately  two.  The  probe  and  traverse  proved  to  be  very  rigid  and  no  noticeable 
vibrations  could  be  sensed  external  to  the  test  section.  The  traverse  was  programmed  to 
step  32  times  and  a  probe  measurement  was  recorded  at  each  stop.  At  each  stop,  during  a 
pause  of  one  second,  all  32  ZOC  pressure  ports  were  scaimed  ten  times.  One  minute  and 
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1 3  seconds  were  required  to  complete  the  traverse.  Surveys  were  conducted  at  the  exit 
of  tlie  lower  passage  while  usmg  the  instrumented  lower  blade  to  provide  surface  static 
pressures  across  the  passage  normal  shock.  This  shock  was  placed  at  the  "design" 
location  using  a  pressure  ratio  of  approximately  2.04.  Observation  and  measured  data 
revealed  that  no  significant  disturbances  or  additional  unsteadiness  of  the  shock  structure 
was  present  during  probe  survey's,  Four  such  surveys  were  completed  and  a 
representative  data  set,  together  with  a  sample  data  reduction,  is  given  in  Appendix  E. 

2.  Probe  Surveys  at  Design  Incidence  (1.15  degrees) 

Seven  tunnel  runs  were  conducted  to  survey  across  a  full  passage  centered  on 
the  middle  blade.  The  cascade  was  operated  at  a  pressure  ratio  of  approximately  2.14,  at 
which  the  upper  passage  normal  shock  was  located  at  the  "design"  location  and  the  lower 
passage  shock  was  slightly  ahead  of  this  location.  The  two  shocks  were  within  ten 
percent  of  chord  of  the  same  axial  location  on  the  blade  suction  surface.  A  typical  data 
set  is  given  in  Appendix  E.  These  and  all  subsequent  survey's  were  taken  at  one  inch 
downstream  of  the  blade  trailing  edge. 

3.  Probe  Surveys  at  -0.85  Degree  Incidence 

Five  tunnel  runs  were  conducted  to  examine  various  off-design  incidence 
angles.  The  cascade  model  was  rotated  such  that  the  incidence  to  the  suction  surface 
was  varied  by  plus  or  minus  2  degrees.  The  setting  which  resulted  in  a  suction  surface 
incidence  of  -0.85  degrees  caused  the  upper  and  lower  passage  normal  shocks  to  move 
into  approximately  the  same  position  within  the  passage  at  the  same  pressure  ratio. 
Rotation  in  the  opposite  direction  (increased  incidence)  had  the  opposite  effect.  Two 
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complete  center  blade  surv'e^s  were  conducted  at  -0.85  degrees  incidence  to  examine  the 
ctiances  in  the  losses  as  well  as  m  the  blade  surface  pressure  distributions.  A  set  of 
survey  data  is  given  in  Appendix  E  together  with  sidewall  pressure  measurements. 
Sliadowgraph  photographs  of  the  flow  at  -0.85  degrees  usmg  contmuous  and  spark  light 
sources  are  shovMi  m  Figures  IS  and  19  respectively. 


TABLE  W.  EXPERIMENTAL  PROGRAM 


Date 

Runs 

Measured 

Purpose 

Appendix  E  | 
pages  1 

4  Nov  92 

1-4 

Plenum.  P2/P1. 
Blade  Surface 
Static 

DAS  T  estmg 

6  Nov  92 

1-7 

Plenum,  P2/P1, 
Blade  Surface 
Static 

DAS  T  estmg 

16  Nov  92 

1-4 

Plenuiru  Impact 
P2/P1, Blade 
Surface  Static 

DAS/Probe  tests 
and  Preliminary 
Data 

1-7 

(Run  3) 

19  Nov  92 

1-5 

Plenum,  Impact 
P2/P1, Blade 
Surface  Static 

Center  Blade 
Survey  at 
Design 

8-14 
(Run  4) 

25  Nov  92 

1-5 

P2/P1, Blade 
Static 

Vary  i.^ 

1  Dec  92 

1-2 

Plenum.  Impact 
P2/P1  .Blade 
Surface  Static, 
Plenum 
Temperature 

Survey  Center 
Blade  at 
Off-Design 
L2=  -0.85  deg 

15-21 
(Run  2) 

7  Dec  92 

1-3 

Plenum,  Impact 
P2,T1, Blade 
Surface  and 
Side-wall  Static, 
Plenum 
Temperature 

Survey  Center 
Blade  at 
Off-Design 
ij^  —  — 0.85  deg 

22-29 
(Run  1) 
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Figure  19.  Spark  Ligtit  Shadowgraph 
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B.  EXPERIMENTAL  RESULTS 


1.  Measurements  at  Design  Incidence 

The  sucrion  surface  pressure  distribuiion  at  a  pressure  ratio  of  2.04.  normalized 
by  inlet  total  pressure,  is  shown  in  Figure  20.  A  very  gradual  e.xpansion  is  seen  as  the 
flow  approaches  the  shock-mteraction  region.  The  interaction  is  centered  at 
approximately  40%  chord  and  steady  diffusion  continues  toward  the  trailing  edge  of  the 
blade.  It  is  significant  to  note  that  pressure  ratios  used  to  place  shocks  m  the  upper  and 
lower  passage  (2.04  and  2.14  respectively)  at  design  mcidence  did  not  change  with  the 
installation  of  the  probe  and  the  suction  surface  static  pressure  distribution  was 
unaffected  by  the  probe  movement.  At  design  incidence,  shocks  could  not  be  positioned 
m  the  same  location  on  the  blade  suction  surface  in  the  two  passages.  The  upper  passage 
normal  shock  was  positioned  in  the  design  location  (approximately  40%  chord)  at  a 
pressure  ratio  of  2.14.  The  lower  passage  shock  was  then  centered  at  30%  chord  as 
determined  by  the  surface  pressure  measurements.  The  lower  blade  surface  pressure 
distribution  at  a  pressure  ratio  of  2.14  is  shown  in  Figure  21. 

The  loss  distribution  resulting  from  the  probe  survey  conducted  downstream  of 
the  center  blade  at  a  pressure  ratio  of  2.14  is  shown  in  Figure  22  Exit  static  and  plenum 
pressures  during  the  probe  survey  are  shown  (dashed  lines)  with  the  rnipact  pressure 
measurements  against  displacement.  The  shock  losses  experienced  in  the  upper  passage 
are  higher  than  those  experienced  in  the  lower  passage.  The  increased  losses  may  be  due 
to  the  lower  passage  normal  shock  which  is  now  forward  of  the  center  blade  leading 
edge.  In  addition,  a  slight  reduction  in  loss  is  present  just  above  the  wake  region,  which 
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Mormatized  Blade  Surface  Pressures 


x/c 


Figure  20.  Lower  Blade  Surface  Pressure  Distribution  (P2/P1  =  2.04) 
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Figure  21.  Lower  Blade  Surface  Pressure  Distribution  (P2/P1  =2.14) 
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Figure  22.  Loss  Distnbution  at  Design  Incidence  (1.15  degrees) 
may  be  attributed  to  the  shock-boundary  layer  interaction.  This  effect  was  also  present 
in  the  lower  passage  (see  Figure  El).  The  wake  is  mixed  out  to  some  degree  as  revealed 
by  the  level  of  the  test  section  exit  static  pressure.  The  mass  averaged  loss  coefficient, 
calculated  by  integration  of  the  distnbution  across  one  blade  space,  was  0.10065  for  the 
design  incidence. 

2.  Measurements  at  -0.85  Degree  Incidence 

As  can  be  seen  by  the  shadowgraph  photographs  in  Figure  18  and  19,  the 
passage  normal  shocks  were  in  approximately  the  same  location  in  the  two  passages  at  a 
pressure  ratio  of  2.14.  The  lower  blade  surface  pressure  distribution  and  an  upper 
passage  sidewall  pressure  distribution  are  shown  in  Figures  23  and  24  respectively.  These 
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Figure  23.  Lower  Blade  Surface  Pressure  Distribution  (-0.85  degrees) 
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data  mdicaie  that  the  shocks  differed  m  position  by  no  more  than  2%  of  chord.  Tlie  blade 
surface  pressure  distributions  for  die  design  cases  showed  a  small  acceleration  prior  to 
the  shock  interaction  region.  .4t  the  negative  mcidence.  no  such  e.xpansion  is  apparent. 
Also,  the  level  of  pressure  prior  to  the  shock  in  this  case  is  o-lOlt-,  higher  than  for  the 
design  mcidence.  suggestmg  the  presence  of  an  oblique  shock  at  the  blade  leading  edge. 
Though  the  flow  is  evenmally  diffused  to  the  same  pressure  in  both  cases,  in  the  reduced 
mcidence  case  the  shock  interaction  region  is  reduced  in  length.  The  reduced  mcidence 
case  shows  the  shock  pressure  rise  occurrmg  over  approximately  1 of  chord  compared 
to  30%  of  chord  at  design  incidence.  This  is  consistent  with  liavmg  a  lower  Mach 
number  at  the  shock  (higher  pressure)  and  a  reduced  region  of  separation  and  associated 
lambda  structure. 

The  impact  pressure  survey  shown  in  Figure  25  indicates  that  the  wake  was 
shed  at  a  higher  vertical  location,  as  should  be  the  case  since  the  higher  incidence  was 
arrived  at  by  rotating  the  test  section.  Shock  losses  for  the  two  passages  were  closer  to 
the  same  value  and  losses  were  m  fact  less  overall  for  this  mcidence.  The  mass  averaged 
loss  coefficient  for  this  case  was  calculated  to  be  0.07393.  The  loss  distribution  just 
above  the  wake  (from  the  lambda  interaction  on  the  suction  side)  appears  in  Figure  25  to 
be  quite  similar  to  the  design  incidence  case  in  Figure  22.  but  the  passage  shock  loss 
above  this  interaction  is  not  as  uniform 
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Figure  25.  Loss  Distnbution  at  Off- Design  Incidence  (-0.85  degrees) 
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IV.  NUMERICAL  SIMULATION 


A.  GRID  GEN ER.VnON 

The  numerical  simulation  was  carried  out  on  a  C-grid  generated  with  the  GRAPE 
grid  generation  program.  GRAPE  (GRids  about  Airfoils  usmg  Poisson's  Equation)  was 
WTitten  by  Sorenson  [Refs.  IS.  19]  and  revised  by  Clnma  [Ref.  20]  to  accommodate 
periodic  cascades  for  rurbomachmery.  .A  flow  solution  was  obtamed  on  a  grid  of  250  x 
49  pomts  generated  by  Golden  [Ref.  8].  This  grid  was  non-dimensionalized  for  use  in 
the  latest  version  of  the  flow  solver.  The  grid  is  shown  in  Figures  26  through  28.  The 
existing  grid  has  been  optimized  for  this  particular  flow  regime  by  adding  more  points  at 
the  leading  and  trailing  edges  and  a  finer  grid  at  the  walls  to  improve  resolution  of 
shocks  and  boundary  layers. 

B.  COMPUTATIONAL  SCHEME 

1.  The  Solution  Method 

The  numerical  scheme  used  was  RVCQ3D  (Rotor  Viscous  Code  QuasioD) 
developed  by  Roderick  Cliima  at  NASA  Lewis  Research  Center  m  Cleveland.  Ohio. 
RVCQ3D  was  specifically  designed  for  the  analysis  of  blade  to  blade  flows  in 
turbomachinery  [Ref  21].  The  code  is  an  explicit  multistage  Runge-Kutta  scheme  which 
solves  either  the  Euler  or  Navier-Stokes  (thin- layer)  equations  and  features  the  following: 
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Figure  26.  Viscous  Grid 


Figure  27.  Viscous  Grid  Leading  Edge 
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•  A  spatially  varying  time  step 

•  Second  and  fourth  order  artificial  viscosity 

•  Implicit  residual  smoothing 

•  An  ideal  gas  assumption 

•  A  Baldwm-Lomax  or  Cebeci- Smith  turbulence  model 

•  Stream  mbe  variation 

•  Rotation  effects 

A  thin  layer  approximation  is  employed  such  that  derivatives  in  tlie  streamwise  direction 
are  dropped  while  calculating  viscous  derivatives.  The  Baldwtn-Lomax  turbulence 
model  was  used  in  all  calculations.  The  code  uses  an  initial  guess  and  time  marches  to  a 
steady-state  solution.  The  code  is  second-order  accurate  in  space  due  to  central 
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differencing  and  has  been  used  up  to  a  fifth-stage  Runge-Kutta  format  providing 
fifth-order  accuracy  in  time.  All  calculations  herein  were  completed  using  a  four-stage 
scheme.  Version  3.7  of  the  code  was  used  for  the  most  current  work.  This  version 
allows  for  almost  completely  dimensionless  inputs  and  provides  a  powerful  restart 
capabihty.  This  version  was  updated  by  Dan  Tweedt  of  NASA  Lewis  [Ref  22].  A 
complete  mathematical  description  of  RVCQ3D  is  contained  in  Reference  23  and  a 
comparison  of  this  scheme  to  other  multigrid  codes  is  given  in  Reference  24. 

2.  RVCQ3D  Inputs 

In  the  current  simulation  only  2-D  cascade  flow  effects  with  no  rotation,  were 
modeled.  An  adiabatic  wall  temperature  boundary  condition  was  imposed  Reynolds 
number  based  on  chord  length  and  total  conditions  was  input  using  a  total  temperature  of 
520  deg  R  or  1 5  deg  C.  A  Courant  number  of  4.5  was  used  and  allowed  convergence  in 
7000  iterations  (5.78  hours  on  a  Silicon  Graphics  Iris  Indigo).  Residual  smoothing  was 
increased  as  much  as  100%  above  recommended  amounts  early  in  the  solution  and 
reduced  to  the  recommended  values  as  the  solution  converged.  A  ratio  of  outlet  static 
pressure  to  inlet  total  pressure  was  required.  It  was  initially  set  above  design  to 
accelerate  placement  of  shocks  and  reduced  to  an  approximate  design  value  as  the 
solution  converged  Further  details  concerning  RVCQ3D  inputs  are  contained  in 
Reference  21.  The  restart  capability  now  included  in  RVCQ3D  allowed  optimization  of 
the  quantities  previously  discussed  which  saved  time  and  improved  performance.  A 
sample  RVCQ3D  input  file  listing  and  a  summary  of  restart  irq)uts  used  to  obtain  the 
solution  is  contained  in  Appendix  F. 
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C  COMPUTATIONAL  SOLUTION 


1.  Summary  of  Previous  Numerical  Results 

An  "unsteady"  solution  was  obtained  by  Golden  [Ref .  8]  in  4000  iterations.  In 
this  solution  the  "normal  shock  merges  with  the  leading  edge  bow  shock  on  the  pressure 
surface  and  with  the  turbulent  boundary  layer  on  the  suction  surface."  [Ref.  8]  The 
lambda  foot  was  not  predicted,  but  some  increase  in  boundary  layer  thickness  was 
present.  Boundary  layer  transition  was  predicted  to  be  at  ten  percent  chord  and  the  flow 
incidence  angle  to  the  suction  surface  was  predicted  to  be  2.53  degrees,  (design  incidence 
was  1.15  degrees)  The  results  were  "unsteady"  because  the  convergence  history  showed 
that  residuals  increased  late  in  the  solution  process  and  a  steady  state  solution  was  not 
realized. 

2,  Current  Numerical  Solution 

The  inputs  to  the  code  represented  conditions  in  the  test  section  that  gave  a 
Reynolds  number  of  about  8  million,  and  a  nominal  back  pressure  was  specified  (P2/Ptl 
=  0.7).  The  inlet  Ivlach  number  was  set  at  1 .4  and  the  inlet  flow  angle  to  the  "machine" 
axis  (normal  to  the  leading  edge  plane)  was  set  for  the  design  incidence  case  of  56.49 
degrees.  A  constant  CFL  of  4.5  was  used  The  shock  system  was  moved  to  the 
"on-design"  condition  by  increasing  the  back  pressure  to  about  0.76  of  inlet  stagnation 
pressure.  The  convergence  history  in  Figure  29  shows  a  three  order  of  magnimde  drop  in 
RMS  density  residuals  in  7000  iterations.  Other  solution  outputs  such  as  incidence  angle, 
Mach  number,  continuity  and  energy  conservation  are  summarized  below  in  T able  V. 
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TABLE  V.  SUMMARY  OF  SOLUTION  OUTPUTS 


Quantity 

Inlet 

Eiit 

Global 

Comments 

Mach  Number 

1.378 

0.633 

For  Ml  guess  =  1.4  [ 

1  P (deg) 

57.518 

52.609 

Foriss  =  2.178  ' 

Loss  Coefficient 

0.1123 

Mass  Averaged  , 

Mass 

Conservation 

-0.0011 

1  -  Mdot(out)/Mdot(in) 

Energy 

1  Conservation 

1 

0.00091 

1 

l-Ht(out)/Ht(in) 

1 

3.  Computational  Results 

a.  Suction  Surface  Pressure  Profile 

The  static  pressure  distribution  given  by  RVCQ3D  is  shown  in  Figure  30. 
The  current  solution  predicted  the  suction  surface  shock  interaction  starting  at  30%  chord 
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extending  to  55%  chord.  The  flow  e.xpanded  very  slightly  as  it  approached  the 
interaction  region,  dipped  after  the  shock  induced  compression  and  continued  to 
subsonically  diffuse  across  the  remamder  of  the  blade  after  the  mteraction  region. 


Normolizeo  BlaOe  Surface  Pressure  Dislribulion 


Figure  30.  Blade  Surface  Pressure  Distribution 


b.  Flow  Separation 

Separation  was  predicted  at  the  leading  edge,  in  the  neighborhood  of  the 
shock  and  at  the  trailing  edge.  Figure  31  shows  the  skin  friction  coefficient  distribution 
and  Figure  32  shows  the  boundary  layer  in  the  normal  shock  region.  Transition  to 
turbulent  flow  was  predicted  to  occur  at  about  5%  chord.  Flow  detachment  was 
predicted  at  38%  and  reattachment  at  45%  chord.  This  separation  was  associated  with 
the  shock-boundary  layer  interaction.  The  trailing  edge  separation  was  predicted  to  start 
at  99%  chord  and  was  caused  by  the  adverse  pressure  gradient  caused  by  further 
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diffusion  through  the  passage.  The  leading  edge  separation  "bubble"  was  confined  to 
very  few  points.  Figure  33  shows  a  particle  trace  at  the  location  of  the  shock  induced 
separation  It  shows  a  very  flattened  separation  region  which  is  a  function  of  the 
turbulent  shock-boundary  layer  interaction,  but  may  also  be  caused  by  the  inadequate 
boundary  layer  resolution  afforded  by  the  Baldwin- Lomax  turbulence  model. 


Sl<In  Friction  Coc^Hcient  v  1000 


Vc 


Figure  31.  Skin  Friction  Coefficient  Distribution  (xl  000) 
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c.  Shock  Resolution 


Mach  number  contours  are  shown  in  Figure  34.  The  normal  shock  merges 
with  the  leading  edge  bow  shock  on  the  pressure  surface  causing  the  attendant  separation 
bubble  previously  described.  Tliis  configuration  is  similar  to  tliat  observed  in  die 
experiment  and  would  appear  to  be  the  "design  condition". 
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Figure  34.  Mach  Number  Contours 
(L  Loss  Calculation 

RVCQ3D  predicted  a  mass  averaged  loss  coefficient  of  0.1 123.  This  pred¬ 
iction  will  be  compared  to  mass  averaged  losses  calculated  from  experimental  data  as 
well  as  with  a  currently  accepted  empirical  loss  model. 
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V.  DISCUSSION  OF  RESULTS 


A.  BLADE  SURFACE  PRESSURE  DISTOIBUTIONS 

The  experimental  and  computational  results  for  the  surface  pressure  distribution  on 
the  blade  suction  side  are  shown  in  Figure  35.  The  numerical  solution  predicts  the 
mteraction  region  to  be  located  about  2%  chord  upstream  of  where  it  was  measured  to  be 
at  the  design  incidence.  The  experimental  results  show  a  somewhat  reduced  Mach 
number  upstream  of  the  shock  interaction  and  the  shock  induced  compression  does  not 
reach  the  same  peak  value  downstream  as  is  shown  in  the  numerical  solution.  However, 
the  slope  of  the  pressure  rise  in  the  interaction  region  and  in  the  subsonic  diffusion  after 
the  shock-boundary  layer  interaction  compare  favorably  in  the  two  simulations.  It  should 
be  noted  that  the  computational  scheme  generates  a  solution  for  what  the  inlet  flow  angle 
should  be  for  the  specified  inlet  Mach  number  (to  allow  periodic  conditions  through  the 
cascade  geometry).  Thus  the  inlet  air  angle  for  the  computation  was  57.656  degrees, 
whereas  it  was  56.49  degrees  in  the  experiment.  Also,  the  outlet  static-to-inlet  total 
pressure  was  0.704  in  the  computation  and  0.68  in  the  experiment.  A  further  difference 
betw'een  the  experiment  and  computation  was  the  unavoidable  presence  of  side-walls  in 
the  experiment.  While  the  RVCQ3D  code  has  provisions  for  streamline  contraction,  in 
the  experiment,  determination  of  streamline  contraction  was  not  possible  with  the 
presently  available  instrumentation 
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At  the  -0.85  degree  incidence  (an  inlet  flow  angle  of  54.49  degrees),  which  is  further 
from  the  angle  output  by  the  computational  solution  than  the  design  senmg,  the  slope  of 
the  pressure  rise  across  the  shock  is  higher  than  for  the  design  case.  The  sharper  rise  is 
followed  by  a  near  plateau  through  the  passage  throat  and  then  a  steeper  rise  over  the 
curved  surface.  Since  the  pressure  ahead  of  the  shock  is  higher,  corresponding  to  a  lower 
Mach  number,  the  steep  rise  through  the  shock  suggests  less  or  even  the  absence  of 
separation.  This  contrasts  with  the  design  incidence  case,  at  which  the  shock  pressure 
rise  (and  interaction)  is  spread  over  30%  chord.  The  significant  difference  between  the 
boundary  layers  entermg  the  subsonic  diffusion  passage  in  the  two  cases,  as  deduced 
from  the  wake  measurements,  could  account  for  the  different  rate  of  pressure  rise. 


Normolized  Blode  Surfoce  Pressure  Distributions 


Figure  35.  Surface  Pressure  Distributions 
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B.  CASCADE  LOSS  ESTIMATION 


Mass-averaged  pressures  and  losses  derived  from  probe  surveys  are  summarized  in 
Table  VI.  It  was  of  interest  to  compare  these  loss  values  with  the  predictions  of  current 
loss  models,  and  with  the  losses  predicted  by  the  numerical  simulation. 


TABLE  VI.  MASS  AVERAGED  QUANTITIES  AND  LOSSES 


1  Case 

Ptlma 

(psia) 

Pt2ma 

(psia) 

Ptl-Pl 

(psia) 

Ttave 

(degR) 

(D_ma 

Design 

54.334 

50.612 

i  36.983 

*  511 

0.1006 

Off-design 

1  54.204 

51.478 

i  36.865 

507.5 

0.0739 

The  Koch  and  Smith  method  [Ref.  25]  was  selected  since  it  was  recommended  in  a 
recent  review  sponsored  by  AGARD  [Ref.  26].  This  empirical  method  can  provide  an 
estimate  of  the  design  point  efficiency  potential  of  a  multistage  compressor,  talcing  into 
account  viscous  loss,  shock  and  leading  edge  blunmess  losses  as  well  as  end-wall  and 
part-span  shroud  losses.  The  intent  here  was  to  use  only  the  relevant  parts  of  this  model, 
inputting  experimental  conditions  and  estimating  those  unavailable  from  the  data.  A 
sample  calculation  is  contained  in  Appendix  G.  Only  profile,  shock  and  leading  edge 
blunmess  losses  were  appropriate  for  the  present  cascade  flow.  Both  the  design  and 
off-design  incidence  cases  were  examined  Deviation  angle  was  estimated  using 
Equation  3.5  of  Reference  25  in  combination  with  Figure  160  of  Reference  27  and  by 
using  Equations  268  and  269  of  Reference  27.  Table  VII  gives  the  inputs  (and  their 
sources)  to  the  loss  calculation  and  the  predicted  losses. 
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TABLE  VII.  LOSS  MODEL  INPUTS  AND  PREDICTED  LOSSES 


Parameter 

Design  Off-design 

1 

Comments 

,  Modified  Carter 
Deviation 

1  (deg) 

2.48 

2.48 

1 

1  Based  on  Stagger 
Angle  (used  in 
j  loss  estimate) 

NASA  SP-36 
Deviation 
(deg) 

2.11 

2.07 

Function  of  (31, 
Solidity,  Shape 
and  Thickness 

Inlet  Flow  Angle 

pi 

(deg) 

56.49 

54.49 

1 

1 

1  Set  in  T  est 

1  Section  to  0.1 

1  Degree 

Outlet  Flow 
Angle 
(52  (deg) 

49.402 

49.402 

1 

!  Function  of  Metal 
Angle  and 
Deviation 

Average  Outlet 
Velocity 
V2(ft/sec) 

717.183 

753.384 

Based  on 
Measured  Pt2,  P2 
Ttl 

Average  Inlet 
Mach  Number 
Ml 

1.389 

1.387 

Based  on  Ptl,  PI 

1  Momentum 
Thickness  to 
Chord 

0c 

0.00656 

0.00525 

i 

Corrected  for 
Equivalent 
Diffusion,  Ml 
and  Surface 
Roughness 

Trailing  Edge  ^ 
1  Form  Factor 

Htb 

2.414 

2.229 

(TABLE  VII.  is  continued  on  the  next  page) 
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TABLE  VII.  (continued) 


Parameter 

Design 

Off-Design 

Comments 

Shock  Inlet  Mach 
Number 

1.4 

1.36 

Based  on  Surface  | 
Pressures 

:  Profile  Losses 

0.02608 

0.0225 

!  Normal  Shock 
Losses 

0.065 

0.05 

1 

Based  on  Shock  1 
Inlet  Mach  i 
number  | 

L.E.  Blunmess 
Losses  1 

0.00855 

0.0081 

Loss  Coefficient  I 

0.0996 

0.0806 

1 

A  summary  of  the  losses  obtamed  by  measurement,  by  the  apphcation  of  the  Koch 
and  Smith  method  and  from  the  numerical  simulation,  is  provided  in  Table  VIII.  There 
is  seen  to  be  a  reasonable  agreement  betw^een  the  measurements  and  the  Koch  and  Smith 
model  at  both  incidence  angles.  The  slightly  higher  loss  from  the  numerical  simulation  is 
consistent  with  there  being  a  slightly  higher  Mach  number  at  the  shock. 


TABLE  Vm.  COMPARISON  OF  LOSS  ESTIMATES 


Case 

Measured 

Koch  and 
Smith 

Numerical 

Design 

0.1006 

0.0996 

0.1123 

Off-Design 

0.0739 

0.0806 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


In  the  present  study,  the  losses  due  to  the  shock-boundary  layer  interaction  in  a 
simulated  fan  blade  passage  were  measured  at  design  and  one  off-design  flow  angle.  The 
results  were  compared  with  the  losses  predicted  using  the  Koch  and  Smith  loss  model. 
Also,  numerical  results  were  obtained  using  a  2-D  thin  layer  Navier-Stokes  flow  solver 
for  blade-to-blade  flows.  Both  surface  pressure  distribution  through  the  interaction  and 
losses  predicted  by  the  code  were  compared  with  the  experimental  results.  A  new  data 
acquisition  system  and  programmable  probe  and  traverse  system  were  implemented  to 
obtain  the  measurements. 


The  following  conclusions  were  drawn: 


♦  The  new  data  acquisition  system  was  very  successful  and  provided  repeatable  and 
accurate  measurements.  This  was  determined  by  comparing  pressure  levels  to 
those  measured  in  Reference  8  and  by  examining  multiple  scans  of  blade  surface 
pressures. 


♦  The  new  probe  and  traverse  mechanism  provided  precise  positional  accuracy  and 
pressure  survey  measurements 


♦  As  the  back  pressure  was  increased  at  the  design  incidence  (a  suction  surface 
incidence  of  1.15  degrees)  the  lower  passage  shock  entered  the  cascade  first  and 
could  be  placed  no  closer  than  1 0%  chord  to  the  upper  passage  shock. 
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At  a  suction  surface  incidence  of  -0.85  degrees  the  upper  and  lower  passage 
shocks  were  placed  at  approximately  the  same  location  at  the  same  pressure  ratio 
(P2/Pl-2.n. 


At  design  incidence  angle,  blade  surface  pressures  showed  the  shock-boundary 
layer  interaction  to  be  spread  over  30%  of  chord  The  slopes  of  the  early  shock 
compression  and  subsonic  diffusion  compared  favorably  with  numerical 
predictions. 


At  the  reduced  incidence  angle  blade  surface  pressures  revealed  a  reduced  Mach 
number  prior  to  the  shock,  steep  shock  compression  and  a  pressure  plateau  for 
25%  chord  followed  by  a  more  rapid  pressure  rise  over  the  back  of  the  blade.  The 
absence  of  significant  separation  would  explain  this  change  in  behavior. 


Mass  averaged  losses  were  calculated  from  impact  pressure  measurements  for  both 
incidence  angles  and  compared  to  predictions  using  the  Koch  and  Smith  loss 
model.  The  results  compared  favorably  and  each  gave  a  twenty  percent  reduction 
in  losses  at  the  reduced  incidence  angle. 


The  loss  measurements  at  design  incidence  angle  compared  reasonably  well  with 
those  given  by  the  computational  simulatioiL 


Conclusions  concerning  the  numerical  simulation  are: 


The  flow  solution  is  highly  grid  dependent.  Repeated  attempts  to  increase  grid 
size  to  obtain  more  precise  viscous  solutions  resulted  in  shock  patterns,  incidence 
angles  and  losses  that  did  not  reflect  reality. 


The  current  numerical  solution,  usmg  the  latest  version  of  RVCQ3D,  predicted 
separation  in  the  shock-boundary  layer  interaction  region.  It  also  predicted  a  small 
separation  bubble  on  the  leading  edge  and  a  slightly  larger  separated  region  at  the 
trailing  edge.  On  a  similar  grid,  using  the  previous  version  of  the  code,  separation 
was  not  predicted. 


The  new  version  of  the  code  demonstrated  more  rapid  convergence  on  the  present 
geometry  than  was  observed  previously  with  the  earlier  version.  Placement  of 


shocks  at  a  desired  location  could  be  accelerated  by  slightly  increasing  back 
pressure  above  anticipated  levels.  The  restart  feature  in  the  present  code  is  a  very 
powerful  aide  in  obtaining  solutions. 


The  following  recommendations  are  made  concerning  the  apparatus  and  instrument¬ 
ation: 


♦  Obtain  an  additional  CALMOD  2000  such  that  lower  pressure  (15PSID)  ZOC-14 
scanning  modules  can  be  calibrated  concurrently  with  higher  pressure  (50PSID) 
modules,  but  with  equal  accuracy. 


♦  Expand  the  ZOC-14  DAS  to  enable  more  test  section  pressures  to  be  measured  in 
one  test. 


♦  Acquire  pressure  data  from  the  instrumented  side  plates  ahead  of  the  test  section  to 
more  fully  examine  the  upstream  flow  as  incidence  angle  is  changed. 


♦  Systematically  replace  all  model  sections  exposed  to  the  flow  with  parts  made  of 
harder  steel  since  erosion  due  to  contamination  is  severe. 


♦  Do  not  exceed  plus  or  minus  two  degrees  of  rotation  from  the  design  incidence 
because  of  potential  damage  to  the  lower  blade  pressure  mbing. 

♦  Design  a  three  sensor  pressure  probe  for  the  present  traverse  apparatus  and 
calibrate  it  to  return  Mach  number  and  pitch  angle. 


Based  on  the  understanding  gained  in  the  present  program,  the  following  steps  are 
proposed  to  achieve  the  stated  goals  of  the  project: 


♦  Verify  the  absence  of  separation  at  the  negative  incidence  using  a  surface  injection 
technique. 
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Experiment  with  "tailboards"  to  achieve  similar  flows  (with  separation)  within  the 
two  passages  at  positive  flow  incidence  angles. 


Obtain  reference  blade  wake  siir\^eys  at  selected  incidence  angles  using 
displacement  increments  of  1/32  inch  (currently  1/16). 


Install  a  center  blade  with  VGJ's  and  repeat  the  surveys  with  flow  visualization. 


Install  Wheeler  Doublets  on  the  lower  and  center  blade  (separately  and  then 
together),  and  repeat  the  surveys  with  flow  visualization. 


Evaluate  the  results. 


APPENDIX  A.  WIND  TUNNEL  INSTRUM ENTA  HON 
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Figure  Al.  Side  Plate  Instrumentation  (Left  Side) 
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Figure  A3.  Lower  Blade  Instrumentation 
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APPENDIX  B.  PROBE  AND  TRAVERSE  DESIGN 


Figare  Bl.  Probe  Traverse  Assembly  Drawing 
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Figure  B2.  Probe  Traverse  Assembly  Drawing 
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Figure  B3.  Test  Section  Lower  Block  Modification 
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Figure  B4.  Fixed  Block 
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Figure  B5.  Sliding  Block 
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Figure  B5.  Sliding  Block  (Bottom  View) 
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Figure  B6.  Probe  and  Traverse  Interface 
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Figure  B7.  Probe  Mounting  Block 
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Figure  B8.  Traverse  Mounting 


65 


ry 

II 


Figure  B8.  Traverse  Mounting  (Auxiliary  View) 
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FignreBP.  VELMEX  UNISLIDE 
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Figure  BIO.  Probe  and  Probe  Holder 
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FIgore  BIO.  Probe  and  Probe  Holder  (Rear  View) 
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Figure  Bll.  Stainless  Rod 
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Figure  B12.  Plumbing  Detail 
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Figure  B13.  Initial  Probe  Design 
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APPENDIX  C.  ZOC-14  DAS  SOFTWARE  DEVELOPMENT 


1.  Data  Acquisition  Program  SCAN_ZOC_05 

The  ZOC-14  DAS  software  development  integrated  the  ZOC-14  modules. 
CALSYS2000  and  the  HP6944A  Multiprogrammer  with  the  HP9000  series  300  Desktop 
Computer  System  and  the  HP6944A  Computer  Aided  Test  (CAT)  software  package.  All 
programming  was  done  in  HP  BASIC  version  5.13.  The  HP6944A  CAT  software 
package  provided  software  and  documentation  to  configure  and  operate  the  HP6944A 
Multiprogrammer.  This  package  formed  the  framework  around  which  the  main  program. 
''SCAN_ZOC_05",  was  written  The  CAT  software  provided  routines  which  allow  the 
programmer  to  integrate  the  operation  of  individual  Multiprogrammer  cards  into 
powerful  data  acquisition  tools.  The  A/D  cards  and  Memory  cards  have  been  combined 
to  operate  as  a  data  buffer  and  the  Pacer  and  Counter  cards  combined  to  operate  as  a 
timer.  The  buffer  stored  raw  strain  gauge  voltages  in  extremely  fast  RAM  during 
acquisition  and  thus  did  not  require  transfer  to  the  HP9000  RAM  and  finally  to  disk  until 
the  data  run  was  complete.  The  timer  function  provided  a  square  wave  pulse  at  a 
prescribed  pulse  width  and  number  of  repetitions.  The  pulse  width  determined  the 
scanning  frequency  and  the  number  of  repetitions  (always  a  multiple  of  32)  determined 
the  number  of  samples  taken  per  scan  of  the  32  ZOC  ports.  The  program  generated  three 
files  for  storage  of  raw  data  (prefix  "ZW"),  cahbration  data  (prefix  "ZC")  and  reduced 
data  (prefix  "ZR").  The  files  were  labeled  by  the  program  in  a  fashion  that  is  very  useful 
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as  illustrated  below.  With  its  file  management  sj’stem.  multiple  data  runs  could  be 


11 

t 

on 

completed  without  stoppmg  to  reduce  the  data  until  runnel  operations  were  complete. 
The  program  made  use  of  multiple  subprograms  and  user  defined  functions  for  repetitive 
tasks  affording  a  "top  down"  program  structure.  Further  details  on  "SCAN_ZOC_05" 
program  development  are  contamed  in  reference  12. 

2.  Modified  ZOC-1 4  DAS  Soffivare  ("SCAN_ZOC_06") 

"SCAN_ZOC_05"  was  modified  to  provide  continuous  monitoring  of  cascade 
pressure  ratios  prior  to  data  acquisition,  operate  a  probe  traverse  for  cascade  surveys  and 
conduct  a  complete  scan  of  all  ZOC's  at  each  new  probe  position.  This  version  of  the 
program  was  designated  "SCAN_ZOC_06".  The  purpose  of  this  section  is  to  document 
modifications  to  the  original  program.  The  new  program  listing  is  contained  in  Figure 
Cl .  An  updated  operating  procedure  for  the  sy’stem  including  hardware  interface  is  also 
contained  in  Appendix  C.  Changes  from  the  previous  operational  procedures  found  in 
reference  12  are  indicated. 

The  initial  semp  routine  was  modified  to  include  options  available  in  the 
new  version  of  the  program.  These  included  the  current  day  atmospheric  pressure  and 
the  type  of  scan  or  "scan  type".  The  options  are  illustrated  below  in  Table  III.  The 
program  is  menu  driven  with  additional  user  inputs  clearly  prompted  by  the  program. 
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Other  selections  which  include  the  frequency  of  data  acquisition.  ZOC's  to  be  operated 
and  CALMOD  utilized  have  been  retained. 


Table  IX.  SCAN  TYPES  AVAILABLE 


Scan  Type 

Purpose 

Options 

j  Comments 

0 

Single  Scan  of 
aUZOCs 

1 

Number  of 
Samples  up  to 
1021 

Original  j 

SCAN_ZOC_05 1 
operation 

1 

Multiple  Scans 
ofaU  ZOC's 

1 

Number  of 
Samples  Avail, 
based  on 
1021/#Scans 

Allows  multiple  j 
Successive  ’ 
Observations 

2  ' 

Probe  Survey  of 
Lower  Blade 

Scans  =  33 
Samples  =10 

Parameters  ^ 
"hard  wired"  in 
to  avoid  probe 
damage 

3 

Probe  Survey  of 
Middle  Blade 

M 

M 

The  operation  of  the  Transonic  Cascade  Wind  Tunnel  required  knowledge 
of  the  pressure  ratio  across  the  test  section  prior  to  data  acquisition.  A  routine  was 
adapted  from  the  program  "SCAN"  listed  in  reference  8  to  provide  a  contmuous  display 
of  the  inlet  (PI),  exit  (P2)  and  exit  to  inlet  pressure  ratio  (P2/P1).  The  routine  initialized 
both  the  HP3497A  Data  Acquisition/Control  Unit  and  the  HP3455A  Digital  Volttneter. 
It  then  repetitively  commanded  the  HP3497A  to  set  the  correct  signal  conditioner  port 
and  triggered  the  voltmeter  to  read  the  voltage  across  the  transducers  connected  to  the 
signal  conditioner.  It  input  this  data  to  variables,  scaled  them  appropriately  and  printed 
out  the  two  pressures  in  psia  followed  by  the  P2/P1  ratio.  This  process  began  iqjon 
pressing  the  function  key  F4  which  initiated  the  "Data  Preps"  routine.  Prior  to  the  start 
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of  the  continuous  cascade  of  pressure  ratios  the  probe  traverse  moved  to  its  initial 
position  (if  "scan_t>pe"  was  greater  than  1)  and  the  CALMOD  was  mitialized. 

Rouimes  to  operate  the  NF90  Steppmg  Motor  Controller  were  added  to  the 
software  such  that  a  probe  mounted  on  the  VELMEX  UNISLIDE  Motor  Driven 
Assembly  could  be  initially  positioned  prior  to  taking  data,  survey  behind  a  cascade 
passage  and  finally  return  to  its  original  position  As  mentioned  above  the  NF90  would 
be  placed  on  line  and  the  probe  would  move  to  its  initial  position  during  the  "Data  Preps" 
phase  of  ZOC  operations,  provided  a  scan  type  of  2  (Lower  Blade)  or  3  (Middle  Blade) 
was  chosen.  When  the  cascade  pressure  ratio  was  at  the  appropriate  value  the  function 
key  F5  was  pressed  to  begin  collecting  data.  After  each  scan  (after  the  subprogram 
"Scan_zocs"  was  called)  was  completed  the  subroutine  "Traverse"  was  called  which 
stepped  the  traverse  a  preset  linear  distance  that  was  "hard-wired"  into  the  program  (a 
program  edit  was  required  to  change  this  parameter)  to  avoid  inadvertent  damage  to  the 
probe.  The  probe  moved  after  each  pressure  measurement,  but  ceased  to  move  after  the 
final  measurement.  The  system  completed  33  scans  causing  the  probe  to  move  32  times 
at  0.0625  inches  each  tune  for  a  total  of  two  inches  traversed.  More  detailed  surveys 
could  be  completed  by  changing  the  number  of  steps  per  scan  (currently  1000)  to  a 
smaller  value.  After  pressure  measurements  were  completed  another  routine  included  in 
the  "Collect  Data"  phase  of  the  program  moved  the  probe  back  to  its  starting  position  out 
of  the  flow  and  placed  the  NF90  off-line.  A  summary  of  the  ASCII  commands 
transmitted  to  the  NF90  via  the  serial  RS-232C  port  is  provided  in  Table  IV. 
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Table  X.  NF90  COMMANDS  USED  IN  SCAN_ZOC_06 


Command 

Dennition 

Purpose 

Comments 

1  "FN" 

On-line 

& 

Zero  Motors 

Place  NF90 
on-line 

Used  at  the 
beginning  of 
traverse  ops 

"Q" 

Quit 

Take  NF90 
off-line 

Used  at  the 
completion  of 
traverse  ops 

"C" 

Command 

Alerts  NF90  to 
new  command 

Used  at  the 
beginning  of 
each  command 

"SIMIOOO" 

Speed  of  Motor 
One  at  1 000 
Steps/Second 

Set  motor  speed 

1000  steps/sec  is 
the  optimum 
speed  of 
operation 

"IIMIOOO" 

Index  Motor 
One  1000  steps 

Moves 
UNISLIDE 
1000  steps 

500  steps  is 
equivalent  to 
1/32  inches 

In  making  first  time  probe  surveys  in  the  Transonic  Cascade  Wind  Tunnel, 
measurements  were  required  to  determine  the  significance  of  disturbances  caused  by  the 
probe  itself.  The  procedure  was  modified  so  that  it  was  possible  to  measure  a  portion  of 
the  cascade  pressure  field  at  each  survey  point.  "SCAN_ZOC_05''  was  modified  such 
that  it  would  perform  one  scan  of  all  ZOC's  for  each  new  position  of  the  probe.  This 
required  the  addition  of  the  traverse  routines  described  above  and  the  modification  of  the 
following  routines  listed  in  Table  V.  These  changes  essentially  added  a  "global  loop" 
around  the  entire  acquisition  process  (with  the  exception  of  the  transfer  of  data  to  the 
HP9000,  gathering  of  calibration  data  and  final  data  reduction)  thus  enabling  the  system 
to  scan  all  ZOC  pressure  ports,  including  the  port  reserved  for  the  probe,  multiple  times 
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while  still  taking  multiple  samples.  These  operations  were  limited  by  the  HP6944A 
buffer  space  such  that  the  number  of  scans  times  the  number  of  samples  times  32  ZOC 
ports  had  to  be  less  than  32,672. 


Table  XL  ROUTINES  MODIFIED  IN  SCAN_ZOC  06 


Routine 

Purpose 

Modifications 

Comments 

Initialize_spac 

Initializes 

variables 

1.  Added  parameter  "Itrav"  for  total 
number  of  scans/traverse  points 

2.  Added  one  column  to  "Zoc_cal" 
arrays  for  storage  of  additional 
.program  inputs 

1  See 

"Collect_data" 
for  more  on 
"Itrav" 

Key_menu 

Prints  ZOC 
operating 
menu 

1.  Changed  "F4"  selection  to  "Final 
Checklist  and  P2/P1  Cascade" 

Input 

Provides 

Program 

inputs 

1  -  — 

1 .  Added  input  for  Atmospheric 
Pressure  and  T  ype  of  scan  desired. 

2.  Replaced  LIF  Hard  Drive 
selection  with  LIF  Floppy  Drive  for 
data  storage 

Inputs  stored 
in  Zoc_caI  1 
array  and  Cal  1 
file  in  j 

"InitiaLcaT  | 

' -  1 

Data_prep  ' 

1 

i 

'  Initializes 
;  CALMOD 
and  probe 
j  traverse  and 
,  prints  out 

1  pressure  ratio 

1 .  Added  routiue  to  preposition  the 
probe  traverse  depending  on 
"Scan_type"  selected  in  "Input" 

2.  Added  routine  that  prints 
continuous  cascade  of  pressure  ratios 
(P2/P1) 

! 

"P2pl"  routine: 
starts  after  | 
probe  is  in  • 
positioiL 

(TABLE  XI.  is  continued  on  the  next  page) 
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TABLE  XL  (continued) 


Routine 

Purpose 

Modifications 

Comments 

Collect_data 

Scans  ZOC's 
desired 
number  of 
times 

1.  The  variable  "Iscan"  is  now 
passed  to  SUB  "Scan_zocs"  .  When 
Iscan  is  greater  than  one  the 

HP6944 A  buffer  will  not  reinitiate 
such  that  data  from  all  scans  will  be 
stored. 

2.  SUB  "Traverse"  is  now  called 
after  each  measurement  and  moves 
the  probe  vertically  down  at  a  set 
increment. 

3.  At  completion  of  measurements 
a  routine  returns  the  probe  to  its 
initial  position. 

See  SUB 
"Scan_zocs"  j 
for  use  of 
variable 
"Iscan"  and 
also  see  SUB 
"Traverse" 

Initial_cal 

Initializes 

arrays 

necessary  for 
storage  of 
calibration 
data 

1 .  Additional  program  inputs  are 
now  stored  in  "Zoc_cal"  arrays  for 
current  data  run. 

2.  New  inputs  included  are 
"Scan_type",  number  of  scans 
("Itrav"),  traverse  "Increment"  and 
atmospheric  pressure. 

3.  Variable  "Iscan"  is  reset  to  one 
so  that  buffers  initiate  for  storage  of 
calibration  data. 

All  inputs  are 
stored  in  the 
cahbration  file 
which  is  read 
later  during 
data  analysis. 

Collect_cal_dat 

Collects  raw 
calibration 
data  for  each 
CALSYS 
pressure 

1.  Variable  "Iscan"  added  to  call  of 
SUB  "Scan_zocs". 

2.  Since  Iscan  reset  to  one  the 
HP6944 A  buffer  initializes  to  store 
calibration  data  only. 

1 

i 

1 

1 

I 

Reduce_data 

Reduces  raw 
calibration 
and  measured 
data 

1.  Replaced  LIE  Hard  Drive  option 
with  LIE  Eloppy  Drive  . 

SEE  SUB 
"Raw_red_ 
dat" 

(TABLE  XI.  is  continued  on  the  next  page) 
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TABLE  XI.  (continued) 


Routine 

Purpose 

Modifications 

Commeuts 

View_files 

Displays 
filenames 
from  storage 
media 

1 ,  Replaced  LIF  Hard  Drive  option 
with  LIF  Floppy  Drive  . 

SUB  Scan_zocs 

Operates 
HP6944A  for 
scanning 
ZOCs 

1 .  Program  passes  additional 
variable  "Iscan"  . 

2.  Conditional  "IF"  statement  skips 
reinitiating  of  HP6944A  buffer  if 
Iscan  greater  than  one. 

SUB  Traverse 

Steps  probe 
traverse  a 
preset  distance 
when 

"Scan_type"  is 
greater  than 
one 

1 .  Increments  for  upper  and  middle 
blade  survey  can  be  varied  with 
program  edit. 

2.  Routine  verifies  probe  move¬ 
ment  complete  by  awaiting  char¬ 

acter  from  NF90  Stepping  Motor 
Controller. 

Survey 
increment 
"hard- wired" 
into  program 
to  avoid  probe 
damage 

SUB  Raw_dat 

Collects  raw 
data  from 
memory  for 
storage  on 
disk  drive 

1 .  The  number  records  read  into  the 
HP9000  memory  and  stored  on  disk 
drive  were  multiplied  by  the  factor 
"Itrav". 

2.  CREATE  BOAT,  Inputjblock 
and  CONTROL  statements  were 
affected. 

"Itrav"  is  the 
total  number 
of  scans. 

SUB  CaLdat 

Stores 
calibration 
data  on 
disk  drive 

1 .  Data  file  size  and  size  of  file 
buffer  were  increased  to  account  for 
additional  column  in  Zoc_cal  array. 

2.  CREATE  BOAT  and 
CONTROL  statements  were 
changed. 

Zoc_cal  array 
size  increased 
to  hold 
amplifying 
information. 

SUB 

Raw_red_dat 

Loads  raw 
data  and  cal 
data  from 
disk,  reduces 
data  and  stores 
on  drive 

1 .  Add  outer  loop  to  account  for 
multiple  scans  now  implemented. 

2.  Repetitively  set  read  pointer  to 
second  element  of  each  scan  in  raw 
data  file. 
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OPERATING  THE  ZOC-14  DAS  PROGRAM 


1.  Start-up 

♦  Turn  on  HP6944A,  CALSYS2000,  ZOC  Enclosures,  HP3497A,  HP3455A, 

NF90,  and  HP9000. 

♦  Verify  traverse  assembly  is  in  correct  position  for  desired  survey  if  applicable. 
Also,  ensure  lead  screw  is  lubricated  to  avoid  motor  stall. 

♦  From  main  menu  shown  type  F7  and  set  time  and  date  in  the  following  format: 
Time  10:25:45  (hours: minutes: seconds);  Date  17  Dec  1992.  If  entries  are  correct 
enter  "  Y"  when  prompted 

♦  Type  F2  to  enter  HP6944A  directory  menu. 

2.  Calibration 

♦  From  this  menu  t3T)e  F2  again  to  cahbrate  individual  transducers.  lOOPSID 
transducers  1  and  2  are  on  ports  0  and  4  of  the  signal  conditioner.  Set  zero 
calibration  and  then  range  scale  caUbration  using  test  pressure.  Set  range  to 
one-half  (1/2)  acmal  test  pressure  for  lOOPSID  transducers. 

♦  Type  an  out  of  range  value  in  cahbration  menu  to  reenter  HP6944A  menu. 

♦  Type  FI  to  proceed  to  ZOC-14  Modules  menu. 

♦  Ensure  the  nitrogen  gas  supply  is  connected  to  the  CALSYS2000  and  90  psi  is  set 
on  the  regulator. 

♦  CALSYS2000  regulators:  Set  the  high,  medium  and  low  pressure  regulators  over 
a  range  of  pressures  to  be  measured  If  specific  levels  are  known,  set  regulators 
close  to  those  levels. 

♦  WARNING:  Do  not  over  pressurize  ZOC's  that  are  not  rated  for  the  higher 
pressures  such  as  the  15PSID  ZOC's. 

♦  CALSYS2000  verification:  Select  F4  from  the  ZOC  Modules  menu  and  verify 
pressure  settings. 
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♦  NOTE:  This  should  always  be  completed  when  the  CALSYS2000  is  first 
energized  to  ensure  the  RS-232C  line  is  clear  and  ZOC's  are  initialized. 

♦  Type  F2  to  return  to  ZOC  menu, 

3.  SCAN_ZOC_06  Set  Up 

♦  Type  FI  to  load  and  run  "SCAN_ZOC_06".  NOTE;  HP6944A  must  be 
energized  to  run  this  program. 

♦  An  introduction  screen  is  displayed  which  indicates  the  program  is  waiting  for  a 
function  key  input.  Function  key  options  are  listed  at  the  bottom  of  the  screen. 
Typing  FI  displays  the  introduction  screen  again.  Typing  F2  will  display  a  menu 
screen  with  same  function  key  options  listed  at  the  bottom  the  screen. 

♦  NOTE:  Typing  F4  or  F5  at  this  time  results  in  an  error. 

♦  Type  F3  to  supply  set-up  inputs  to  the  program.  All  inputs  are  prompted  and  a 
list  of  these  inputs  is  provided  below: 

a.  Input  atmospheric  pressure  in  psia. 

b.  Select  data  storage  drive  (0  is  HFS  hard  drive  700,0"  and  1  is  LIF 
floppy  drive  "  700,1 ") 

c.  Select  "Scan_type"  as  described  in  Table  IX  above.  The 
number  of  samples  available  is  determined  by  this  selection. 

d.  Select  the  number  of  samples  based  on  selection  of  "Scan_type". 

e.  Select  the  number  of  ZOC's  (1-3)  for  recording  data. 

f.  Select  the  CALMOD  assigned  to  each  ZOC  by  entering  1  or  2  when 
prompted,  (currently  only  one  is  available). 

4.  Data  Collectioo  Preparations  ("Final  Checklist  and  P2/P1  Cascade") 

♦  Verify  nitrogen  is  supplied  to  CALSYS2000  at  90  psi. 

♦  Verify  wind  tunnel  is  prepared  for  operation: 
a.  Back  pressure  valve  is  wide  open. 
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b.  Control  air  is  supplied  to  the  pneumatic  regulator  valve. 


♦  NOTE:  The  next  step  is  to  type  F4  for  final  preparations  and  checklist,  but  the 
outcome  will  vary  depending  on  Scan_type  selected. 

♦  If  Scanjype  0  or  1  is  chosen,  type  F4  prior  to  commencing  wind  tunnel 
operations.  This  will  provide  a  continuous  display  of  tunnel  pressure  ratio. 

♦  If  Scanjype  2  or  3  is  selected,  type  F4  just  prior  to  opening  tunnel  inlet  valve  by 
coordinating  with  the  operator.  This  will  avoid  placing  probe  in  unsteady  initial 
tunnel  flow  and  save  run  time  by  positioning  probe  in  an  expeditious  manner. 

♦  WARNING:  Probe  motion  is  "hard- wired"  into  program.  Ensure  probe  is 
positioned  such  that  current  settings  will  not  damage  the  probe  or  traverse. 

5.  Data  Collection 

♦  When  prompted,  and  when  tunnel  pressure  ratio  is  at  desired  level,  type  F5  to 
commence  data  collection.  The  HP9000  will  display  "Collecting  raw  pressure 
data." 

♦  The  HP9000  will  display  "Raw  data  collection  complete. "  and  then  store  raw  data 
to  the  disk  drive  selected.  At  this  time  the  wind  tunnel  can  be  secured  if  desired. 
The  HP9000  will  also  take  and  store  raw  calibration  data  at  this  time  and  display 
all  filenames  for  raw  data  and  raw  calibration  data  storage. 

♦  At  this  point  there  are  several  options  available.  Type  F4  to  repeat  the  previous 
data  ruiL  Type  F3  to  reset  program  set  up.  T ype  F6  to  reduce  the  current  day 
raw  data,  or  F8  to  exit  program. 

6.  Data  Reduction  and  File  Listing 

♦  Typing  F7  will  list  all  current  day  data  files  on  the  storage  drive.  The  program 
prompts  the  user  if  copying  files  to  the  floppy  drive  (":, 700,1")  is  desired. 

♦  Type  F6  to  reduce  current  day  raw  data.  It  is  recommended  that  all  data  be 
reduced  the  day  it  is  taken 

♦  NOTE:  Data  reduction  of  large  data  files  (multiple  scans  required  for  probe 
surveys)  takes  several  minutes. 
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Type  F8  to  exit  the  program  and  return  to  the  ZOC  menu. 


♦ 


7.  Data  Analysis  with  READ_ZOC2 

♦  Typing  F2  enters  the  program  "READ_ZOC2"  for  data  analysis. 

♦  A  menu  is  displayed  with  various  choices  for  data  analysis.  Typing  FI  prompts 
the  user  for  the  ZOC  number,  date  (YMMDD)  and  run  number  from  that  day.  It 
then  prompts  the  user  for  the  storage  drive  where  this  data  is  saved  (must  be  the 
HFS  hard  drive  or  LIF  floppy  drive).  This  will  read  the  reduced  pressure  and 
cahbration  data  from  the  files  generated  by  "SCAN_ZOC_06". 

♦  NOTE:  All  other  function  key  selections  will  result  in  an  error  before  entering 
the  ZOC  data  (typing  FI). 

♦  Functions  available  by  typing  the  function  key  shown  are  as  follows: 

FI  Read  ZOC  data  stored  on  disk  drives 

F2  Save  pressure  data  array  in  psia  to  an  ASCII  file 

F3  Print  pressure  data  to  CRT  or  printer 

F4  Plot  P/Pt  and  Mach  number  distributions  and  print  out  P/Pt  and  Mach 
number  for  multiple  scans. 

F5  Plot  vertical  displacement  against  probe  pressures  and  calculate  mass 
averaged  losses. 

F8  Exit  READ_ZOC2 


♦  NOTE:  ASCII  file  size  is  "hard- wired"  into  the  program  and  must  be  changed 
with  a  program  edit. 

♦  The  program  is  currently  configured  to  read  the  first  25  ZOC  ports  into  the  arrays 
for  plotting  surface  pressure  and  Mach  number  distributions.  Other  distributions 
are  possible  with  a  simple  program  edit. 
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Figure  Cl.  Program  "SCAN_ZOC_06" 
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Figured,  (cont)  Program  "SC AN_ZOC_06" 
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Figured,  (cont)  Program  "SCAN_ZOC_06 
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Figure  CJ.  (coni)  Program  "SCAN_Z(3C_()6'' 
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c  300  Pr?  I N  r  "  T n  f  1  c a  i  1  br<^  t  1  on  f),^  ♦  a  gtj  i  ■-,  j  t  i  nrt  f  i  n«  :  ’  ;  T  PR ( ‘••0  > :  ^  i  nf|  •  P  •  '  I  M  7 « 
u ^ a _ r O'  )  I "  T . " 

.’310  rniui 

>30  I'fM  n  r  "  On  t  (H  t  or  (Rq«  dl  -  ‘  j  fPn  K*>  rjr  f  ,  »■'  t 
<3>0  fOlin  Ofif(^  Liilll  (.1^  )ri  Ml''  rrMlf'i.iirtf)  filn'--  fipfjiTmtnn  uMi  liin  H  tIRi 

n 

3  310  rniiM 

33R0  f  OR  I -I  TO  /oc  _riijnhrr 
3350  l-M  1  >  •  ^ 


3  3)70 

f'  R  U  U  "Raw  data  f  i  1  n  t 

”  l  F  t  i  »■  t  I'ini  ,  I 

1  I 

3300 

PP  I  N  I  "  Ca  t  t  hr^a  t  j  on  data  f  j  i  e  ! 

"  ;  r  i  J  M  [d  t  n  .  1 

1  ’ 

3.390 

PRINf  "f^ educed  data  file: 

?  t  j  1  ^  <  P 1 1  n  1 

1  ^ 

3100 

PRINT 

3  1  1  0 

NEXT  I 

2120 

1 

3130 

I )  1  S  P  ”  S  e  1  e  r  1.  FI  1  n  y  to  t)  e  q  t  n  r  j  a  f  a 

agu  i  '■  1  1  I'm 

3110 

GO  10  Hold 

2150 

1 

3460 

Ual.a  pret^:  » -  f^RFPAPF  FHR  l.iATA 

1  r  f  THH 

3170 

Cl  FAR  SCRFEN 

3180 

PRINT  "Data  Collect  inri  Pr'»naration 

3190 

PRINT 

3500  • 

3M0  t  . . . . 

3530  \  ERROR  TRAP  IF  MO  INITIAI.  P'f?05RAn  RTMlMf-P  ^(Hiripiro 

3530  »  . . . . 

3510  1 

3550  IF  Rnn-O  THEM 

3560  PRIIJf  "Ffoqr-^n  not  I  n  I  t  M"^  I  i  r  "d  for  rPM  n  '^o  I  1 M 'ni . 

3570  OlSf’  "R’Mrct  F3  to  jnllli^Mr^ 

3.590  GOro  Mold 

2590  FNO  f( 

3600  J 

2B10  . . . . . . . . . . 

3630  •  FINAL  CHECKLIST  PRIOR  10  STARIUIG  HA  1 A  ROM 

2530  I . . . . . . . . . . 

3540  » 

3550  PRINT  "ChecP  list:'* 

3GG0  PRINT  **  -  MI  Scan  CALSYS2000  on- Jinn* 

2670  PRINT  ”  -  CALMOO  supply  lina  valve  Is  OPEN  (on  hnri  of  f  AI  5> S3CU10  ) " 
2600  PRINT  "  "  CALSYS2000  (Nitrogen)  pressure  sorjr  ni  90 
3690  r 

2700  I  . . . . . . * . 

2710  »  PLACING  TRAVERSE  IN  INITIAL  LOCATION  HF(?F 

2720  I  *.4..  . . 

2730  I 

3710  IF  Scan_typB<2  THEN  S(  lp_travrr*se 
2750  PRINT 

3750  PRINT  "  -  The  Probe  traverse  is  now  moving  1 it'  Initial  p''siMon. 

2770  PRINT 
2780  I 

2790  DIN  Ir«vcnd$M3 

2800  Sc2'’l0  I  5  e  I  n  r  •  r  ofio  f  <.'r  3rHi  *■ ''r  i  «  I  r,  ir  d 

28I0  ASSIGN  ^Traverse  lO  Sc2  *Asstgn  a  petli  M^  the  -^r'f  Ini  mr  d 

2820  CONTROL  Sc2  . 1  4 i 30 

2930  OUTPUT  Traverse  t  "  FN“  ‘Place  rTir*|ipinq  noton  f^n  linn 

2910  I 

2050  IF  6can_type»2  THEM 

Figure  Cl.  (coiit)  I’logiam  "S( 'AN  /()(  '  ()6" 


89 


IMI  I  I  A1  I  7r  CALHnn  iifrf 


Y  'nj  will  r*  t  hr*  f' AL  tU U )  f  )  r 


If*  1!  h  1  1  r*  i  i  1  rn  M  ^  n 


I 

rn }  ri  r 

rPiNi  '• 

PfMNl 

I 

CnUTROI.  I  IMP  ?y  ♦ '*>  ( r*f  f  ALSY'^TWHO 

OIJIPIM  y  iI;AI  9:(  I  )  t  “  IC“  j  I'liPtM  3  ^  I  ruf)  I  I  rii  I  1  M  (nIlhrv^^M,  ftl 

OU1PUT  g»UAL$(2  )r’ir/' t3)lLMUI  Inin^lir-  r.*,  l  Ihr-nlcM  rruirri-  n? 

WAIT  Pause  for  '  A I  I  (M.i  ('Al  SYRTCHIO  In 


I  ^ 


ZRRO  OUlPUr  ^  Travnrsa  I  "C  ,S  ini  ,  I  IfHh^OO  ,R"  1 1  (jWf  P  RLAMf 
cO70  PLP.P 

rRR0  ()iiirur  0 f ‘C  ,sifii7PO  .  [  ,ir  ifiiopi  r  ni  amp  ir 

7890  PMl)  \r 
7900  I 

"^910  Pr no5  1  t :  • 

*_  9 2  0  F IJ  f  F  R  0  1  r ■  a  V  r*  r  s  n  U  5  I  f  1 0  ’  ft  ,  K  ’  ;  f  r  a  v  r  rui  r  1 1 :  r*  r  r*  ?  *.  r.  n  (  n » 1  w  |  -^  f h j n  f » *  '**  r)  »■%  i  n  f >  p  n  r' 

2 9j»0  IP  1  r  n vcnATi  (  >  "  "  1  HFM  Pr’e  pn*^  i  t  Ilf  "n  t  r*^  r*  j  p  j  1  r  y  acja  1  n  . 

2940  lOUTPIIT  0Trnvrrser’y  ” 

2950  iprUFR  fi5lravnri<«  USIUG  ’'fl.RD’';Pr^  po^i 
29G0  I 
2970  I 

2900  SI  ip  lr  av'^r  nr:  I 
2990  I 

3000  I  .. .  . . . . . . . . 

30  10 

J020 

3030 

30  4  0 
3050 
30G0 
3070 
3000 
3090 
3100 

31  10 
3120 
3130 
3140 
3150 
3160 
3170 
3100 
3190 
3200 
3210 
3220 
3230 
3240 
5250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3300 
3390 
3400 
3410 
3420 


•STFAnV  STATE  P2/P1  ROUTINE  MEPF 

I...... . . . . 

I 


0I5P  "  Non  i  lor  Prallo  and  r.nlact  PS  to  alat'^  r) -» I  n  1  i  t  i  nn  ,  ' 

I 

I 

P2pl  :  I 
! 

•  Itii  t  1  a  1  l  re  dev  Ices 

Oacu^70g 

Uvn«720 

ASSIGN  PDacu  TO  Oacu 
ASSIGN  (90vfn  TO  Dvn 
ASSIGN  ©Instrunents  TO  Dvn  .Oacu 
CLEAR  ©InslruMents 

OUTPUT  ©Dvni  "F  I  R7M3A0H0T3 "  I  DCU  .Atilor-im<-  .M/.t  tiAf  f  .Aninr.a  I  Of  f 

I  Hi  renOf  f  ,  I  f*  f  acj^r  f l.inna  I 

Rfllio_loopJ  I 

FOR  Id-0  TO  4  STEP  4 
GOSU0  Read^stdy 
SELECT  Id 
CASE  0 

P1-P_3tdy»  lO00  +  P_.atn 
CASE  4 

P2*P_3tdy»  1000*^P_atn 
END  SELECT 
NEXT  id 
Prni  lo«P2/P1 

PRINT  •*  P2  "  "  PI  ”  ."Prat  1  r,  •' 


Figure  Cl.  (coiit)  Program  "SCAN_ZOC_06" 
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f’Rirn  (’2  .IM  ,Prnl  lo 


34  4  0  M  ^ )  f '  f  1  n  loop 
34G0  « 


3  4  RO  n  OrT  fj  i.  (f  /  ! 


34  70 
34^0 
vIGO 
3r,oo 
JG10 
3S?0 
3530 
3540 
3550 
3550 
3570 
3500 
3550 
3R00 


T  oln  1  "■  To  ta  1  -♦■P  5  +  rly 
NR  XI  I 
Gl  FAR  f3Dncii 
R..»slfJv"Tolai/5 
P_*?tflv-2«P  5tHv 
RFfURN 


CLFAR  raRR-^cti 
Ao$-‘‘Arj” 
f  Mi;-R'AL‘r^  I  H  ) 

OUfrUT  0f)f»cu  »  Aol; P,  I  i|'r 

r  n  t  I  ~  0 

FOR  I-l  TO  5 


nUGGFR  <9()vn 

FflTER  (^DvnN’  •'lOv 


•  G(v<lori  (f,r  1(^0  p'^iH  f  r  -‘3  Of,  f  ji  jr  f>r- 


3510  CL  EAR  0  I  r\^  I  riinont  5 
3520  AS5IGN  m  • 

3530  ASSIGN  0Uvn  TO  • 

3R40  ASSIGN  0  1  rin  t  runen  I  TO  * 

3G50  GOTO  MolrJ 
3RG0  t 

3570  . . * . . . 

3GR0  Collect  datoM - COLLECT  DATA  -  -  - 

3590  1  . . . . . . * . -  .  . . 

3700  I 

3710  CLFAR  ©Inslrunenls 

3720  ASSIGN  ©Oacu  TO  *  IDoa  I  locale  nnth*’>  unerf  i  it  ‘-.tfly  fiya 

3730  ASSIGN  0Dvn  TO  * 

3740  ASSIGN  ©Inslrunonta  TO  * 

3750  I 

3760  I  . . . . .  .  -  . 

3770  1  ERROR  TRAP  IF  NOT  INIflALI^FD 

3700  . . . . . . 

3790  IF  Run«0  THEN 

3600  PRINT  "Progran  not  initial  Ired  for  data  rn  1  1  c'’ T  i  ort .  " 

3810  OISP  "Select  F3  to  inltiallre  Set-ufi" 

3620  GOTO  Hold 

3830  END  IF 
3640  I 
3650  1 

3660  I  t  I .  *  . . . . - . . 

3B70  1  OATA  COLLECTION  (CALLS  Scan  roc?;  AND  Tr  av-r-,-  ) 

3660  . . 

3890  I 

3900  CLFAR  SCREEN 
3910  PRINT 

3920  PRINT  '*  (To  1  I  Gc  t  1  nq  roM  pf'eaaure  rJata." 

3930  Coun  t  "S  a  r>p  1  e_nunb  er  •  32  •  Sal  ('nmit  fimfljon  F  '•,-^nplr'  ni/nhrr' 

3940  I  and  niinhar  nf  fi'U't  f  ^  32)  oit 

3950  1  Z(^c  for  f  »i*.i  tlala  ro  11  or  (  1  on  , 

3960  I 

3970  1  The  ^can  loop  for  all  scan  Types  is  lior'^ 

3960  I 

3990  FOR  l5can=»l  TO  llrav 


Figured,  (cont)  Program  "SCAN_ZOC_06" 
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4  00(1  f'  A '  I  1  r'  1  n  ?  or  P  (  Of  111  t  ,  pi  j  I  ,  I  r:  n f  1  1  •  f 'n  )  1  o ♦  r  v  '  f < ^  i  1 1  •  fi  f  1'  n  >i  \-  y  'i  t,  on 

■1010  IP  ^r-m  1yp«N)  ArJI)  Hrori  1  f  r  •iv  MUfJ  Irn.r,,  -n 

■mro  lUX]  !-;r.-«n 
4  0P.O  I 
U140  t 

4tiP0  If  'w'rin  I  vr'«'  1IIMI  f  I 

4  Of )  0  F  fM  r '  f  ”  7  “  r  r>  -  J  rif")  1  f' t  /  n  r*  «  n  i >f  |  1  n  1  i  r  i r]  1  r*  f  1 1 1  i  n f  j  f  w  W  r  '  i  f  1  i  n»  - 

40/0  riUFFOir  o  f  r  |  "r:  )  niooo  .  F  1  ru'>  .F^ 

lOfJO  OlirrOIF  (4  I  t '‘O” 

1000  A0Sir;il  Olfvnver'PO  ff)  • 

•1  100  E  I  <5^:  I 
4  110  I 

4  170  rni  nr 

1150  f’Rinr  Rnivj  rintri  col  I  or  t  ton  conn) to. 

4140  HErP 
4  ISO  1 

4  IPO  GO  10  for 

4  170  1»..*... . ^ . . . . . . . 

4  1P0  I  TRAUERPr  OPPF^ATioris  r(m  <;e!  nrx  nrqo  qir  f'r'iMn  rinirfp  rompniirp 

4  100  I  •  .  •  .  t  .  . . . . 

4  700  Tf'o  V  or  no  :  • 

4710  PFIECr  Scan  tvpo 

4770  CASE  2 

4  730  flUTPUr  OTrnvof'Pei  "C  .5101000 ,110  *1000  .0 

4740  cast  3 

4  7S0  f)ljrpur  OTr,ivpr'pei  "C  .5  101000 , 1  111  -  I  000  .R’ 

47G0  EOF)  SELECT 

47  70  I 

4700  Pom  1  t  J 

47^0  PFIFER  0Tr<ivpr-ip  O^WnP  ”  tt  .  -  P  "  i  F  r  n  vrrulF 

4300  IP  Fravcndf':^"  FF1EN  Pom  t 

4310  WAFT  0 

4320  inWTPUT  OIr'flvrrner'X” 

4330  lENFER  OTrnvprne  UGIOG  ”8,0()"tF'on 

4340  RETURN 


4350  1 

43G0  1 


4370  Raul  _da  I  a_y  f  pr  !  • 
43B0  PRINT 


TRAMSPEP  RAW  DATA  Fll  llFFinPr  SrSFEFI  TO  IIAPF)  )H  SC 


4350  I 

4400  FOR  Zoc_ca'5e"l  TO  Zoc_nunbor 
44)0  SELECT  Zoc^caaa 

4470  CASE  1 

4430  CALL  Rau/_dnl(Buf  fpr-F  ,)  ) 

4440  CASE  2 


1  f  ?  O  I  )  o  r'  F  f  n  t.i  r|  o  f  a  ,  r  n  rji  irn  *  I  a  I  and 
I  and  r'^diir*^  dat'*'  '^■'n  Fi  ord  driv'* 


4  4  50 
44n0 
4470 
4  4)10 
4490 
4500 
45)0 
4570 
4530 
4540 


IF  Rufi/I  THEN 


Run^Run- I 
ri'JFl  IP 

(^ALL  Raio._da  t  <  Du  f  f  er7  ,7  ) 


CASE  3 

IF  RunM  TFFEN 


Run'*niin-  I 
END  tr 

CALL  Rau^daKBuf  ff‘r3.3  ) 


END  SELECT 


4550  NEXT  Zoc_caflc 
45B0  1 


Figured,  (coiit)  Program  "SCAN_ZOCJ)6" 
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4^70  fr.-  t  i.i  I  I  :  f -  r^lIRFmnnfl  SFT  l)f’ 

4  n  0  I  ♦ !  'I  H  h  r*  f.  t  f'  f )  d  t  a  .n  r'  r  y  for*  o  n  r  h  /nr.  :  /  ^ '  •  ^  i  '  *  .11  ' 

■1  T) n0  •  f  nr  n  ■<  F  * 

•lf)00  I  r  r.r  nnr*fn  I”!  t.  7  ' 

4R  I  0  I  F?riijj  0,  rolunn  F'nrinri 

4R70  <  F'nr.r  H,  column  I  :  Snr>pl«  rn^jtiliof 

4R.10  •  F^ni.j  0^  column  Tt  7 o'"  tt 

4f3  40  1  FJoi.i  0  ,  CO  J  umn  3  .'  ('fi  I  1  Fir'n  f  ^u-  nnrft  i  I ''  F  M  •'I  ^'0  p  I  '> 

4r,50  «  f^ni.f  0:  _  _  _  _  _  Fill  FWt  Flf  70  D  f'fl  I  M  '  nr  n -ntr  Mr 

4  BGO  F  Rom  0-3  ,  column  II:  Goon  t  \  ,  1  F  I  n'r  ‘'n'^'r  \  1  F’  F  ri 

4G70  I  Row  i:  00  Al  0?  03  fifl  FID  Fll  70  F'l  I'Ft  F'M  <  I 

4nR0  I  L.  G  coof  r>f'n.  Rritj^f'''^  <"'urv^  fif  roof  frt  Fltirrl  rud'^* 

4GR0  I 

4  700  F'RItlF 

47)0  PRIMT  ’  f^n  1  1  oc  t  i  nq  callbC'-iMnn  rlr^lfi." 

47;.'0  RFAl.  l(  M  20  )  ,C.il7(  M70  )  .Col  3(  1  1  70  )  I  i  ‘  ^  M  loo  F  r  -  r,  r\n\n  nr  r 

4  730  I  flCrin^  I  .  0 

4  740  Count  *^32  •?)  i  Set  count  to  coll'' cl 

4750  I 

47G0  MAT  Zoc_can-  (0) 

4770  MAT  Zoc.^cal2*  (0) 

4700  MAT  2oc_cal3»  (0) 

4700  Zoc_c a  1  I ( 0 ,0 )»Per i od 
4800  7oc_cal  1(0,1  )'*Sanp  I  e_number 
4810  Zoc_ca M ( 0 , 2 )“ 1 
4  820  Zoc  _ca  I  I  (  0  ,3  I'Ca  I  j*iod  1  rl(  1  ) 

4830  Zf>c_ca  11(0,1  I  )*5can  I  yp« 

4  840  7  nc_ca  M(1  ,11  I’^Itrav 

4850  Zoc^ral  1 (2  ,  I  1  )«?ncrrnent 
4000  7oc  call(3,ll  )'='P  atm 
4870  7cM:^cal2(0  ,0  )-Perlorl 

4880  Z  oc_,ca  I  2  (  0 , 1  ) -"Samp  1  e  _n»imher’ 

4880  7f>clcal2(0 ,2  >-2 
4  000  7oc_ca  I  2(  0  ,  .3  >"Ca  I  _norl  i  d(  7  ) 

4910  Z oc..,c a  1  2 (  0 , 11  )^Scan_typa 
4920  Zoc_.cai2(  1,11  l-ltrav 
4930  7oc_ca I  7 ( 2 . 1 1  1 ncr en^n t 

4940  Zoc_cal2(3,I1)"'P_atm 
49^0  Zoc_ca 1 3( 0 ,0  )*Per j od 
4980  Zoc_cal3(0,l  )=*Snnp  le_number' 

4970  7nc_ca  1  3(  0  ,2  )'»3 

4980  Zoc_ca  1  3 (  0  , 3  )”Ca  1  _mor1_t  d(  3  ) 

4  990  Zoc_.ca  I  3(  0 , 1  I  )*^Scan__t  ype 
5000  Zoc__cal3(  1  ,1  I  )*Itrav 
50  1  0  Zoc_ca  13(2,1  )  I  ncrnner)  t 
5020  Zoc_ra!3(3.l  1  )»P_atm 
5030  1 

5040  Col  Ir.r.t  ,cal_dat  :  1 - COLLECl  RAU  CALIRRAIIDN  MAin  -  -- 

5050  I 

5080  F  Collect  raw  calibration  data  for'  ^ach  f'A(  SYS2OO0  ’^ettlnp 
5070  FOR  Indey-I  TO  7 

5080  ('AI  L  Ca  1  2000 (  Command_node‘T (  1  ndex  )  ,  1  ndf’N  ) 

5090  CAM-  Scan_?oc5(  Count  ,Pli  I  aa  ,  I  scan  > 

5100  FOR  Zoc^caae*!  TO  Zoc_nunber 
5110  SElFcf  Zoc^case 

5120  CASE  1 

5)30  Input^rblock  (Diif  frr  1  ,Cq  I  1  (  »  >  ,  1  60  .  (  I  nrlev  -  1  )•  160^  I  > 

Figured,  (cont)  Program  "SC AN_ZOC_06" 


p.  ,  . 

)  .  ' 

I  f  n  ) 

t  w'  I  V  f 'nrn  a  !  . 

n  V 

1  Hunt  1  Of «  da  t  a 
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CAST  ? 

5*^0  I  npu  I  ._rh  locK  <  Du  f  f  er?  ,  Ca  1 ;!  (  •  >  ,  t  G0  .  (  I  ntj"  -  -  J  '  *  1  BA  f  I  ) 

5ID0  CASE  3 

5170  J  npu  \  r  h  1  oc^-  (  Du  f  f  rr3  ,C^t  I  3'  •  )  ,  1  SO  .  <  f  rui"  •:-  I  W  I  PjA  M  ^ 

SIRA  run  sn  rn 

*3 190  fJF^T  7 fy(: 

5:^00  rirxf  imiry. 

S2I0  t 

SaZO  I  Sf.orn  fiolleclrd  r^llbrfltlnn 
5230  POF^  Zoc_Cc< R r.’’ (  Tf)  7 oc_mlr^brr 
5240  SELECT  Zoc^case 
5250  CASE  I 

52G0  C  A|  L  L\r  I  t(CaJ  W  •  ),Zoc_call<  *  )  ) 

5270  CASE  2 

52Q0  CALL  Cal_rlat(Cfll2(  *  )  ,Zoc_calZ(  •  )  ) 

5290  CASE  3 

5300  CALL  Cal_dat(Cal3(  O.Zoc_cal3(*  )) 

5310  END  SELECT 

5320  NEXT  Zoc_oaae 
5330  I 
5340  PRfNI 

5 350  nniNT  "Callbratlori  iJafa  collrjcttou  conple^*’. 

5350  BEEP 
5370  WAIT  .25 
53B0  BEEP 

5590  OUTPUT  9 1  UAL$ (  I  ) »  ”  I C”  i  CHR?  <  1  3  >  i  END  >  1  n  j  t  i  a  1  )  r »=;  (,'■»  1  i  l-*ra  t  or'  noHu  1  r*  tf  I 
5400  OUTPUT  9iUAL$(  2  )i  "IC"  tCHR$(  13  )iEriD<  Initialir^?  C^fihrator  nodule  tf2 
5410  PRINT 

5420  PRINT  "•»*  Secure  Calibrator  pressure  valve  In  conserve  Mitr’nqrjn  • » • " 

5430  PRINT 

5440  PRINT  '’CALSY52O00  Calibration  nodes  and  pressure*,  (  in  Hr))!" 

5450  Entl: IMAGE  /  .5X  .K  . I  OX ,K , I 0X  ,K  .  1 0X  ,K 

5460  PRINT  USING  Fnt  I  i  “Mode”  , "  Zoc  1I2","Zog  03" 

5470  Fnt2:IMAGE  BX ,K  .  1 0X  ,30 . 40  ,8X  , 3D . 4U  .RX  ,3U . 4i) 

5400  EOR  I"4  TO  10 

5490  PRINT  USING  Fn 1 2  i Connand_node$ (  I  - 3  )  .  Zoc_ca  1  H  0  ,  I  )  ,  / nr  _c«"'  I  2 (  0  ,  !  )  ,  Zoc  _r a  I  3 
(0,1  ) 

5500  NEXT  I 

5510  OISP  “Select  F4  for  another  data  run,  or  EG  to  reduce  data" 

5520  GOTO  Hold 
5530  I 

5540  Reduce_data: I - REDUCE  DATA  AND  STORE  ON  HARD  DRIUE - 

5550  I  Routine  loads  raw  and  calibration  data  from  storaon  rJrlve,  reduces  the 
55B0  I  data,  and  stores  the  data  to  the  storage  drive. 


5570 

1 

5580 

CLEAR  SCREEN 

5590 

PRINT  “Calibration  and  Rau  data  reduction  and  slnr^p**. 

” 

5G00 

PRINT 

5610 

IF  Run«0  THEN 

5B20 

INPUT  "Enter  the  date  of  data  for  reduction  (VMMDD)! 

5630 

INPUT  "Munber  of  Zoc  *8  connected  to  Mu  1  tl  -  nroar-nner " 

,7or  nunbrr 

5G40 

INPUT  “Select  data  storage  drive  (0-:.700  I-r,70O,I) 

"  ,Dr  V  r,ise 

5650 

SELECT  Drv_case 

5660 

CASE  0 

5670 

Data_dr i ve$-" J  ,700,0" 

5680 

CASE  1 

5690 

Datd_dr Ive$»":  ,700,1" 

5700 

END  SELECT 

Figured,  (coiit)  Program  "SC AN_ZOC_06" 
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f;7l0  END  IF 

57^0  1 

5730  M/^r  Ft  (•*-’•) 

5740  FOR  ?oc  CcTno®l  TO  Zoc_nimbf^r*  iAn«5jqn  file's  f r^oni  ‘=«t'^fr’\np  Id  FilpS^*) 

5750  SELECT  Zoc^cane 

5760  Ci^SE  I 

5770  CALL  Filfl_5Ccnn{l) 

5700  CASE  2 

5790  CALL  Flle_5Cfln(2) 

5800  CASE  3 

5010  CALL  Flle_8can(5) 

5020  END  SELECT 

5030  NEXT  Zoc^cone 
5040  I 

5950  PRINT  ''Currf»nt  flies  on  sLorege  disc  dr  JvpT;"  fnr  rlnfr 

5860  PRINT 

5870  FOR  Rn«l  TO  Run 

5080  FOR  Zn”l  TO  Zoc_nunher 

5890  FOR  I«I  TO  3 

5900  PRINT  USING  "jX  .K  ,  It  ”  i  FI  1  e$<  Rn  .  (  Zn- I)  •'3M  l 

5910  NEXT  I 

5920  PRINT  USING  ”+ ,L" 

5930  NEXT  Zn 

5940  NEXT  Rn 
5950  PRINT 
5960  f 

5970  FOR  Run^red’l  TO  Run  •  Rerliic"  r  nu  H  ne . 

5980  FOR  Zoc_cflso-l  TO  Zoc_nunber 

5990  SELECT  Zoc^case 

6000  CASE  1 

60  10  CALL  Rau_rod_dat(  I  .Rijn_rod  ) 

6020  CASE  2 

6030  CALL  Rau_red_da L ( 2 ,Run_rod ) 

6040  CASE  5 

6050  CALL  Raw_red_da t ( 3 ,Run_red ) 

6060  END  SELECT 

6070  NEXT  Zoc^case 

6080  NEXT  Run^rod 
6090  Run-0 
6100  D«la_reduced- f 
6110  BEEP 

6120  DISP  -Seleci  F3  reinitialize  set-up  for  d.’«lo  roHertton,  or  FR  In  E>  1  t 
6130  GOTO  Hold 
6140  1 

6150  Vleui^flles!  I - UIEUI  FILES  ON  STORAGE  ORIUE  - - 

6160  f  Routine  loads  flies  from  storage  drive  and  displays  file  nnnes. 

6170  I 

6180  CLEAR  SCREEN 

6190  PRINT  "List  Raw,  Calibration  and  Reduced  data  files." 

6200  PRINT 

6210  IF  Da t a_reduced* I  THEN  Prlnt_files 
6220  IF  Run-0  THEN 

6230  INPUT  "Enter  the  date  of  data  for  for  reduction  ( YMMDO > : "  .Da t 
6240  INPUT  "Nunber  of  Zoc’s  connected  to  Nu  I  I  1 -proaraner "  ,  Zoc„r)urobcr 

6250  INPUT  "Select  data  storage  drive  (0-:,700  I - :  ,700 , 1  )"  ,0r v  case 

6260  SELECT  Drv^case 

6270  CASE  0 
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6280 

Oat i  ve9* "  : 

:  .700,0 

6290 

CASE  r 

G300 

Da  t  o_dr i ve$- " : 

,700 , 1 

6310 

TND  SELECT 

G320 

END  IF 

G530  Pr  1  r)  t  _  f  i  1  e n  :  I 

n340  PRINT  storage  rfrlve  nana  -  "iData  Hr  iv^T 

635(^  I 

G3R0  M^r  r  i  1  (’•-'■  ) 

G37W  POR  Zor_(:asa*l  TO  Zoc  _nunb  er  i  0  n  a  i  gn  f  M  as  f  ron  5  t  oragr  »  o  P  l  1  0$  (  •  > 

G380  SELECT  Zoc^case 

R390  CASE  I 

B400  CALL  P 1 le_5can( I  ) 

G4I0  CASE  Z 

G420  CALL  rile_5can(7) 

G430  CASE  3 

6440  CALL  F  I  I  c__3CQn<  3  ) 

G450  END  SELECT 

G4G0  NEXT  Zoc_caaa 
6470  ! 

G480  PRIfJT 

G490  PRINT  "Currant  files  on  stor'aqe  disc  for*  fiato  '’;l)aipT 
GB00  PRINT 

B5I0  FOR  Rn«l  TO  Run  iPr*lnt  tfia  llstiriq  on  the 

G520  FOR  Zn“t  TO  Zoc_nunber  Idestanatp'l  nlorage  rlriva. 

G530  FOR  I-l  TO  3 

GG40  PRINT  USING  “  3X  ,K  ,  #  "  1  F  i  1  e$  (  Rn  .  (  Zn- M  •  3M  ) 

6550  NEXT  I 

G5G0  PRINT  USING  "/” 

6570  NEXT  Zn 

G580  NEXT  Rn 
6590  ( 

6G00  IF  0rv_ca3e<2  THEN 

GGI0  INPUT  "Do  you  want  to  copy  files  fron  ttie  Hard  Hrlvf*  lo  FloppyZ  ( O^’No  1" 
Yes  )"  .Copy_h_to_f 

G620  IF  Copy_h_to_f«0  THEN  Fnd_vleij 

6G30  ON  ERROR  G05UB  View^error 

G640  PRINT 

G650  PRINT  "WARNING:  Any  duplicate  existing  file-  on  ttie  Flojipy  u' I  I  I  be  copie 
d  over  I  * 


GG60 

PRINT 

1  Copy  the  files 

fron  the  designated 

GG70 

FOR  Rn-(  TO  Run 

lhard  drive  to  the  florpv  dr*ive. 

G680 

FOR  Zn=»!  TO  Zoc_nunber 

6690 

FOR  I-l  TO  3 

6700 

Fj4”Flle$(Rn.( Zn-I  )-3+I  ) 

G7I0 

COPY  FlS&Dato^dri  ve$  TO  Fi9:^ 

.700.1 

G720 

IF  THEN 

G730 

PRINT  "File  "|Fi$r  copied 

to  Floppy" 

6740 

END  IF 

6750 

NEXT  I 

6760 

NEXT  Zn 

6770 

NEXT  Rn 

G7O0 

PRINT 

to  FI  oppy  :  ,  700 , 1 " 

6790 

PRINT  "Files  have  been  copied  fron 

"  1  Ua  t  a_.Hr' t  ve*?  i 

6800 

END  IF 

6810 

GOTO  End_vteui 

6820 

Ulew_error:  1 

6830 

SELECT  ERRN 

6040 

CASE  56 

1 F i 1 e  does  not 

exist,  then  con t i nue 

Figure  Cl.  (cont)  Program  "SCAN_ZOC_06" 
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G850  CLEAR  ERROR 

BOG0  rRROR  RETURN 

6B7R  CASE 

RBBO  r  URE^E  FlTa"  :  ,700 , 1  ” 

BB90  Ct  E/>R  ERROR 

RBOO  nr  TURN 

GBIO  CACf:  El  BE 
BBZO  OrSP  FRRN* 

6930  PAUSE 

B940  EfiU  SELECT 
6990  I 
6960  I 

6970  End  vif>u»:  * 

6980  Run’0 

6990  OISP  '‘S(*Jrct  E2  to  return  to  nrnti  , 
7000  GOTO  Hold 
7010  I 


•Pohjf'Ti  If?  lino  f  o  )  !  i  no  f  OP  Y 
1 1  ii  ifi  1  i  r  I  f  1  I  f»y  i  t  f?f)  f  f  )0  f  !  f?pp  V  , 

IMif'n  p'nQ'^  Hip  Hhi?  fflo,  folrun  to 

I  1  ho  I  t  pnri  f  h^  f  I  !  o  . 


fM'  r  B  In  f-  1  i  •* 


7020  Finish:  f 
7030  LOAD  "Z0CJ1ENU”  .  10 
7040  I 
7050  END 

7060  End!  I  e  =  - tr  -  -  --rTrr--t-“--rsr^-.3ror.a^^ 

7070  I  Function  to  return  todays  date  for  input  into  flip  nanc^; 

7000  DEF  FNDote^iSeconds  ) 

7090  Tul  Inn-Seconds  DIU  B6400-t72IM9 

7100  Year«( 4» Jul ian-l  >  DIU  I 4B097 

7110  Jul ian«< 4*Julian-l  )  MOD  146097 

7120  Day«Jullan  DIU  4 

7130  Jull«n-(4tDay+3>  DIU  1461 

7140  Day-(4*Ony+3)  MOD  1451 

7150  Day-(Day+4  )  DIU  4 

7160  Honth-(5^Uay-3 )  DIU  153  »  Month 

7170  Day-(5»Uny-3  )  MOD  153 

7100  Day-(Day+S)  DIU  5  I  Day 

7190  Year- 1 00* Year4 Ju 1 1  an 

7200  IF  I1onth<l0  THEN 

7210  Monlh-Month+3 

7220  ELSE 

7230  Month^Month+B 

7240  Yoar*»Year+l 

7250  END  IF 

7260  YearS«UAL$( Year  ) 

7270  IF  Month<l0  THEN 

7280  Month$--0"&UAL$< Month ) 

7290  ELSE 

7300  Month$*UAL$<  Month  ) 

7310  END  IF 

7520  IF  Day<10  THEN 

7330  Day$-"0"&UAL3;(  Day  ) 

7340  ELSE 

7350  DayS-UAL$(Day  ) 

73B0  END  IF 

7370  0$-'Year$t4  l&Month$&Day$ 

7300  RETURN  D$ 

7390  FNEND 

7400  I - 

7410  I  Subroutine  to  build  file  names  as  required  by  Run  nunher'  for'  a  specified 
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7420  I  7oc,  <^nrj  a^atgn  existing  files  to  the  f  ilef  n.ilrl.*. 

7430  SUfl  n  le(  7ii  ) 

M40  (ajH  /Slflts/  REf^L  PiJ  1  se  ,Sar>p  i  e_  rtiinber  .Pfiiirjp  f  "'r  ,  I  in  f-T  1  no<i  id(3).nat 

e:6  , Pun  ,  I  t ray 

74  50  COM  /Files/  Fll  ©$(•),  Data  dr  tv  p*? 

74fiO  DIM  0ata_dl5cl$C23)  .Data  dl5c2S(Z3J  .IJata  »jisrVr(:,5l 

7470  ON  ERROR  FOrO  Error 

74B0  j-< In- I )»3 

7490  As ?  1  gn_f  1  1  e  I 

7500  Fllel-O 

7510  Data  _f  t  l  e  ”  ZU**  SVAI.'?  (  7n  )&Ua  t  a$l^VAL  I  (  Run  ) 

7520  Uata^discl  $’^Data..  f  1 1  e  I  SftUat  a  _dr  1  ve$ 

7530  ASSIGN  PChec ^ _pa t h 1  TO  nala_dlscl$  irhorl  for  '  i  5  ^  f  ZW  .  . 

7540  FlleSlRun.Jfll^f.Tat  a_f  I  1  e  I  $  I  As  s  i  an  Z  0  t  o  ria  I  r  i  . 

7550  Fllel^l  I  F  I  ag  1  o  1 0  f  I  1  e  r*  -  j  c,  1  , 

75G0  I 

7570  Flle2-0 

7580  Data_f  1  Ie2$-”ZC'’&UAL$(  Z n  )&0a  t  e$&UAL$(  Run  ) 

7590  Data_dl oc2$*Data_f 1 1 e2$^Da ta_dr t ve$ 

7BO0  ASSIGN  0Cheok_pnth2  TO  Data_dlsc2$  K'hp.ck  for  existancr  of  ZC_. 

7GI0  F  1  I  Qfi(  Run  ,  J +2  )»Da  ta_f  1  1  e2$  ^Assign  ZC_  to  natr  j'-. 

7G20  Flie2-I  IFlag  to  ID  file  py.lsts. 

7G30  I 

7540  Uata_f  1  Io3$-"ZR’’iUAL$(  Zn  )&Da te?&VAL$ <  Run  ) 

7B50  Da  t  a_d 1 sc3$“Da  t  a_f 1  I e3$&Da  t  a_dr  l  ve$ 

7GR0  ASSIGN  (9Check_pa t h3  TO  Data_di3c3$  »Checl-  for  a./lstanrr  of  Zn_. 

7G70  FI  I eS ( Run , J +  3  )»Da t a_f 1 ] e3S  'Assign  ZR_  to  natri*. 

7B00  I 

7B90  Run*Runt-t  I  IF  Z'/J_  exist,  reassign  Run  tt 

7700  ASSIGN  f3Chock_pathl  TU  • 

7710  ASSIGN  0Check_path2  TO  • 

7720  ASSIGN  <5Check_po t  h3  TO  • 

7730  GOTO  Assign^fllo  IChecT  storage  dJso  aaair). 

7740  Error!  l  Subroutine  If  ERR0R*5G  ,  files  donot  exist  for  Run  and  Zoo 
7750  IF  ERRN05B  THEN 

77G0  PRINT  ERRM$ 

7770  PAUSE 

7780  END  IF 

7790  IF  Fllel-0  THEN  Fin  'File  ZU_  doesnof  e-i?t.  exit 

7800  IF  Fliel»l  THEN  'Fllo  Z'J_  e-lsts 

7810  IF  Flle2==0  THEN  'Flio  ZC„  tloesnot  «  i -=^  t  s  ,  therefore 

7820  ASSIGN  0Chock_pathl  TO  • 

7830  PURGE  Data_dlacl$ 

7840  ELSE 

7850  Run*'Run4  I 

78G0  END  IF 

7870  END  IF 

7080  ASSIGN  e*Check_pathl  TO  • 

7890  ASSIGN  (9ChecK_pat h2  TO  • 

7900  ASSIGN  @Chock„path3  TO  • 

7910  GOTO  Asslgn^fllo 

7970  Fin:  ' 

7930  ASSIGN  PCheck_path1  TO  * 

7940  ASSIGN  0Check_path2  TO  • 

7950  ASSIGN  0Check_path3  TO  • 

79G0  Oata^f I  1 e?«- " ZC " iUAL$( Zn )&Da te$RUAL$(  Run ) 

7970  Data^f 1 ln3$-“ ZR^SUAL®! Zn  )&Da te$&UAL$( Run  ) 

7980  FlIoS<Run.J+1  >»Data_flIel$  'Create  ZU_  to  natrl-. 

Figured,  (cont)  Program  "SCAN_ZOC_06" 
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7990  l('rf»<^l^  /<  In  ^>111!'. 

0000  rilp‘l(niin,J+3)*Uatfl_filf;3‘?  7f^  ^  o  n'^trj  . 

0010  SLKIRNfl 

00?0  I - - - -  -  -  - 

0030  1  9ob^'0(  1 1  i  fi*  to  oper'fltn  thn  1100944^1  Mn  I  1  I  *  pf^'nrjr  r<t'iruM'  for  sr  -ifinirif^  Jnci, 


0040  sun  5rfln_7oc  T  <  Count  ,Pti  1 -^p  ,  I  ncf^n  ) 
9050  COM  /Mompp/  Ou f f I  , AHc I  , Ru f f rr 
80G0  UfT  i  1  ne^Count  •?  •Pu  I  se  ♦  10.0 
8070  I  !i  j  t  <  T  1  nnr  ) 

9080  Ce  t_ t  i  npot.j  t  (  T  1  ner  ,  ijfl  1  t  I  I  n«=*  ) 
8090  Set  count ( T 1 ner  .Count  ) 

8100  9e t _per I od( T i ner , Pu I se ) 

0110  IF  IscariM  THEN  Ma  1  nte  1  n,,po  1  nt 

0120  Ini t<Buf ferl  ) 

8130  Ini t<Buf Per?  ) 

0140  Ini t(Buf fer3 > 

0150  Ha i n t a  I n_po i nt i  t 
OIG0  Start <Tlner) 

0170  Ua 1 t_f or ( T i ner  ) 

8180  5UBENU 
0190  I 

0200  I - 


2  ,  Adc 2  , Bu  f  f  .AH'  3  .  1  i 

I  Set  Tlnof  t.iA^  I  t  tirip  ^10  '^ecs. 

•  I  n  <  t  t  e  1  I  7  1  )  n«r'  s  y  *>  1 

I  Set  1’p'j‘se  for-  per*  lorl  of  '»nc3. 

I  5»*t  f'niiTit  rnimfier  Into  ?  i  nr^r’ 

I  Set  finer  ptilrse  I'^ngtlj  In 
I  If  r»reunir»a  1  t  ti'^n  fieri  ’  t  re^nf  pointer 
I  fnltlpll7«  Puffer  for*  tint,  n  tnreqe 


I  Star  t  rfe  t  a  aenple  rMllerlinri 
1  Data  5ar*ip1e“i  nlnred  jn  Honor  v  Svsten 


8210  I  Subroutine  to  collect  raw  pressure  data  from  fl'^nr^r  y  Syst»'n  and  store 
8220  I  onto  the  hard  drive  for  future  data  reduction. 

0230  SUB  Raw_dat<Buf f  ,Zn) 

B240  COM  /Stats/  REAL  Pu  1  se  ,Sanp  1  e_nuntjor  .Pause  _  f  nr  ,  Ifl  1  EGER  (  ?  1  nod  i  d(  3  )  .Da  t 
eS  .Run  ,  I trav 

0250  COM  /Files/  Fi le$< • >  ,0ata_dr i ve$  I  Data  file  listing  for  99  runs. 

02GO  ON  ERROR  GOTO  Error 

8270  INTEGER  Raw^datat  32B72  )  BUFFER  1  Integer  roM  data  buffer*  for  3.?»102l 

9280  I  data  sanple**.  Integer  forr'tat  for 

8290  1  ninlnun  transfer  tine  tn  storage. 

0300  DIM  Data_disc$(25] 

0310  Tt**Itrav 

9320  Sn"*Sanp  1  e_nijnb©r 

0330  AssiQn_fllo:  ( 

0340  Oata_flle**Flle$(Run.<Zn-I  )»3+l  )  l  Raw  data  file 
0350  0ata_di 3c$-Data_f 1 le$^0ata_dr i veS 

O3G0  CREATE  BOAT  Data_dlsc$  .32*  1 1  •Snf  1  •  1 1  .2  l  Cmaie  BOAT  file  ui/2  byte  recor 
ds  . 

0370  ASSIGN  @0ata_path  TO  Data^dlscS  I  Assign  path  to  har'd  drive 

8300  ASSIGN  <9Buf  fer^path  TO  BUFFER  Raw_data<  •  )  tFOftMAT  OFF 

0390  Input_lblock< Buf f .Rau;_data< •  )  .  1 1 •Sn*32 1 1 • 1 1  . 1  )  *  Load  data  sanples 

0400  I 

8410  IPRINTER  IS  702 

0420  IPRINT  Raw_data(*>  f  Block  print  raw  data  for  tent 

8430  IPRINTER  IS  CRT 

8440  I 

8450  CONTROL  ©Buf  fer_path  .4  u32*2*  1 1  •Sn  +  2*  1 1  *  f'lose  tujff^r  Mhen  full 

8450  TRANSFER  ©Buffer_path  TO  ©Data^path  >  transfer  data  Oata^dlsc 

8470  ASSIGN  ©Buffor^path  TO  * 

0480  ASSIGN  ©Oata^path  TO  * 

0490  PRINT  "Raw  pressure  dataJ  Pun#  "  1  Run  i  "  ,  Zoctt  ”  1 /n  t .  storage  fir'lve  file  1 
Oata_f i le^^0ota_dr I ve$ 

8500  GOTO  Fin 

8510  Error:  1 
8520  IF  ERRN054  THEN 

8530  PRINT  ERRM$ 

8540  PAUSE 

0550  END  IF 
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8  iGf)  f  r  r  RPN”G  t  TURN  >  m  n  ^  r  rM « f  i  n^’  n  '*  '^(  *(  m  I  ♦  t  uj 

8570  Nifn-Rnn+I  I  ruiMlrl^*  '  >  *  »  M.lhont  rl-iK-, 

05  no  R^lf.F~!lf*(7n)  i 

os^^o  rrip  ir 

OROO  r,i)tfl  O**, i  qn^  f  i  lo 

80 10  Tin:  I 

OR^O  RURRNr) 

nf;.30  I -  - - - 

OR40  I  RuhrotjTinr*  mntrols  r  fi  1  i  br  I  I  on  nnHr  r  r^r)'-.  p,  r,i.r,,,  o  f,  r>r.  {,on^nro 

0650  f  S^flridnrd  into  /oc_Cfll(*>  ^rr^^v. 

8RR0  SUP  O  I  7000(nonn^nrij  ,  i  ) 

OR70  COM  / 1  ty'.  dat/  RROl  PfiRFFP  7or  I  .U  »  '  fMiRfFP  ’/>/'  I  V  •  '  (UJf 

rPR 


RRPO 
r?  ,FUjn 
0600 
0700 
87f  0 
874’0 
P730 
0740 
O7S0 
0760 
0770 
8700 
8700 
8800 
0810 
8870 
8830 
8840 
0850 
0860 
8870 
de . 

8080 
8890 
8900 
8910 
89?0 


1  •  d  F  I  «  T  fi 
I  r  ,-i  I  t  hr  ♦  Of 

♦  c;  r-  ,1  t  (  f  t  r  •  i  Of 

df  I  oi.i  ( 7M  «;>•  STOOP 
Pn-'^fl  f:p|  SyRTOOO  ' 


I  fo  +  -^1  r  o  -in 

t!  I  r  >  ( M )  o 
N  7  M  o  r  I  r» 

►  M  'I  ,-ihl  I  I  rr 
fu  o  ^  n 


.1  I 


f’’PM  /Rk^fn/  RRGL  Pf  f  i  5  c  ,  Srinp  1  r»  nitr-ihor  f 'i  ,fMfr(-rF>  RtI  r-iofl  ifT(T)d}.Tk 

M  r  a  V 

DIN  Pf  o s  aiir*a${  5  ]  I 

OUTPUT  9iUAL'5(  MiComnand'l!  ir:URi:(  I  3  );FUf>  i 
nurpu?  OfUPLSt  2  )fConr»iand'lir:MR«(  13  )ihUD  i 
UP  1  T  Pan«;e_f  or  i 

rOR  K-l  TO  Cai_nodjd(0)  i 

5FI  RCT  K 
COSR  I 

OUTPUT  giUAl.f(Cai_nor|_ld<  1  )  )«  "RP"  f  ^  ):rN(1 

ENTPR  9  USING  “  8  ,  SO  .  5DE5Z  Z  ,K  ”  i  Zoc.ca  i  !(  0  .  I  i  3  )  ,PrPP -T 
C05R  2 

OUTPUT  giUAL^(  Cfli_r>od_i  d{  2  )  )i  "RP"  I  3  '  :FfJD 

ENTER  9  USING  *•  ,5D.5DESZZ  ,K  **  i  Zoc_ral2<  0 , 1  ♦  3  )  .FVe'iatir  o4; 

CASE  3 

OUTPUT  giUAL$(Cai_r)od_lri(3  )  )i  -RP"  fCNI?’5(  I  3  »:ENI) 

ENTER  9  USING  “  #  ,SD .  SOESZZ  ,K  ”  t  Zoc  ca  k  3(  O  ,  1  *  '  '  .Pr  0*1  anr  n't 
END  SELECT 


NEXT  K 

IF  i<>3  TUEN 
Zoc_ca 1 1(0, 

Zoc__ca  i  2(  0  , 
Zoc_ca i 3( 0 , 
END  IE 
SUDEND 


l+3)"-Zoc  call(0,i43)  • 


Aoronnk  for  f»oa  I  t  I  vo  pi  - 

k«V  CAI.SYS7P0P  In  tho  rJH 


'as'ff  f“*i  ii'Siad 

UN.  P,  NL  no 


,I+3)--?oc. 
,1  +  3  I-’-Zoc 


cal2(0, 
ca i 3( 0  , 


If3) 
1+3  ) 


I ' 


8930  I  Sukiroiilina  stores  calibration  data  collertoH  frnn  Nenof  v  Rv'^J'^n  atid 
8940  I  CA1_SY52000  calibration  pressure  data  onto  tfir*  kiar  fl  drive. 

8950  1  Zoc_cal_  Is  then  stored  onto  t  lie  liard  drivn. 

8960  SUB  Cal^dat(REAL  Ca 1 (  •  )  ,  Zoc_ca  1  ( *  )  BUFFER) 

0970  COM  /Stats/  REAL  Pul  se  ,5anp  ke_nunber  .Paii'ief  or' ^  1  NTFGFI^  C»t1  nod  lfU3).nat 
e$  .Run  ,  I tra V 

0900  COM  /Flies/  F  i  leSi  •  )  ,Dat  a_dr  1  vet  f  Data  file  I  i  s  H  np  for  'H 
8990  1 

9000  I  Converting  Cal<»)  to  Zoc_cai(*) 

9010  FOR  J’-4  TO  10  f  Cai  runs:  NN  .NN  .  NL  .  70  .Id  .I'M. IN 

9020  FOR  1*1  TO  32  I  Zoc  ports  per  r^llbrel Ion  run 

9030  FOR  K*'0  TO  4  I  Nunher  of  «5anpips  per  run 

9040  Zoc  .cal  (  1  .J  )»Zoc.,cal(  I  .  J  )  +  Ca  U  I  tl<  •  32  K  J  *4  )  *  I  R0  ) 

9050  NEXT  K 

9060  Zoc_ca  1  (  I  ,  J  )*Zoc_cai  (  i  ,  J  )/S  1  Averaae  of  S  'i»-’riples  per  port  1 

9070  NEXT  I 

9080  NEXT  J 

9090  I 

9100  I  Transfer  calibration  data  to  hard  drive. 

9110  ON  ERROR  GOSUR  Purge^flle 

9120  DIM  Oa  I  a_d  1  sett  23  1  I  Define  slrlrui  for  tEt  I  n  file  none 


Figured,  (coiit)  Program  "SC AN_ZOC_06" 


100 


9130 
9140 
9150 
9tG0 
9170 
9t90 
9190 
9:100 
9210 
9220 
9230 

5C$ 

9240  GOTO  Fin 
9250  Purge_f lie! 


in'"  2oc  _ca  I  (  0  , 2  )  I  OefJri'*  Znr  nimhFT* 

Oa  I  /3_  f  1  I  q$*F  ile$(Run,(Zn''l)**3  +  2)  •  ('r?lihr*atlnr)  data  file 
Oata^di  8c$*Dala_f  i  1  e$R.Da  ta_dr  i  va* 

CRt.^TF  BOf^T  Data_dlsc$  .33,8»I2  1  Hrentp  rU)A)  file  nf  17-n  hyfo 
ASSIGN  0Oata_  path  TO  Data  dl*!c$  •  AR^lnn  fiath  \n  hard  fir  i  v/^ 
AS9IGN  <9Buf  fcr^palh  TO  RUrFFR  7oc_ca  W  *  )  •  Ff'PnA  1  Of  f' 

CONTROL  Pnuffer_p3th,4iR»l2*33  ISet  data  file  length 

TRAN9FFR  (9BlI  f  f  er_pa  t  h  TO  @Ua  t  fl_pa  I  h  >  5  I  nre  cal  flata  on  hard  dr  ivo 


ASSIGN  POuffer  patfi  TO  • 
ASSIGN  eOata.palh  TO  • 


•  Cl  0*5  0  r^ath 
I  Close  path 


PRINT  "Callhrallon  data*.  Run#"{Run!",  7 oc  II  "  I  /  n  t  "  ,  s  t  or'Ofje  fir  i  ve  file  "  i  0 


I 


92G0  IF  ERRN-54  THEN 

92*70  PRINT  "Error  occursd  In  SUB  Cal_dal. 

9280  PAUSE 

9290  END  IF 

9300  RETURN 

9310  Fin:  1 

9320  SU0ENO 
9330 
9540 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 


Error  :  '  t  F  1U?1 1 


Subroutine  loads  raw  and  calibration  data  frr'n  the  storago  tlrlve, 
reduces  the  data,  and  stores  the  data  onto  ttie  storage  rlr  ive. 
Calibration  data  is  reduced  using  the  Least  'Squares  Curve  fit  to  obtain 
coefficients  for  a  third-order  polynonlal.  Ihe  raw  pressure  data  is 
reduced  using  these  coefficients. 

Buffer  arrays  are  replaced  with  standard  arrays  for  data  pianlpu 1  at  ion . 
Utilization  of  Buffers  and  the  TRANSFER  routine  results  In  lost  of  the 
first  several  data  bytes  when  data  is  transforred  from  floppy  media  to 
the  buffer;  Utilization  of  OUTPUT,  ENTER,  and  arrays  results  In  no 
data  lost  with  floppy  media.  Hard  disc  media  worl  s  i.ie  1  I  with  elttier 
data  manipulation  technique  using  buffers  or  standard  arrays. 

SUB  Raw_red_dat < Zn  ,Rn  ) 

COM  /Names/  Buf ferl  ,Adc t  .BufferZ ,Adc2 , Buff er3  ,Adc3  ,T Iner 

COM  /Stats/  REAL  Pu 1  so  ,Samp le_number ,Pau3e._f or , IN TEGER  Ca I _mod_i d( 3 ) ,Da t 


eSC  G }  ,Run  ,  I trav 


9400 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9840 
9850 
9660 
9670 
9680  I 

9690  Oata_reduc t i on : 


I  Oat a  file  listing  for  99  runs. 
I  Calibration  data  file 
I  Raw  data  file  name 
I  Reduced  data  file  name 

I  Continue  If  Reduce  data  file 
I  doesno  t  er:  i  s  I  . 


COM  /Files/  Fl 1 o$< •  )  ,Da ta_dr 1 ve$ 

Data^f  ileU-Fl  le$(Rn.(  Zn-T  )*3  +  2  ) 

Data^f lle29-Fll6$<Rn,< Zn-1  >*3+1  ) 

Data_flle3S-FlleS<Rn,<  Zn-1  )*3+3) 

I 

IF  Data^f  lle3$<>"-’'  THEN 
GOTO  Fin 
END  IF 

I 

IF  Data^f  llolS-'*-"  THEN 

PRINT  "Calibration  file  doesnot  exist  for  Runtt"fRnt'',  /octf'iZn 
GOTO  Fin 
END  IF 
I 

ON  ERROR  GOSUB  Error 
DIM  Data.di8oUt23J 
DIM  Data_dl8c2«[23J 
DIM  0ata_di8c3*t231 

Data^disc I $*Oata_f i lei $&Da ta_dr i ve9 

REAL  Zoc_ca  1  <  32 , 1  1  )  lArrav  to  fiandie  calibration  data 


I 


Figured,  (cont)  Program  "SC AN_ZOC_06" 


101 


0700  rPfrn  reduction:  i  Rn  i  "  ,  7orr;^i 

9710  I 

9770  OOrtta.pflthl  TO  Hri  t  ^  r)  I  5cl  $  r  FOKrin  I  t)!! 

)730  ^NlfR  ^nnl('i_pelhli7  Dc c  a  I  (  •  '  M  -  o  H  r  ^  w  .i  )  i  hr  t  ion  f  l/ii  o  I  r»  I  r 


97.10 

ASSIGN  0Uela_patli1 

TO  • 

9750 

I 

97R0 

1  GaJlbrallon  data  r-"ductlon  nnjnq  Least  F'n  1  \  non  i  rjn  1  fittlrra. 

9770 

REAL  A(3,»j),B(3),C(3),5um _ >'f6),A_inv{ji  3)l  SniiAfo  rerjijrllr^ti  ar'i 

9700 

rOR  K-l  TO  32 

♦  l-Oop  for  each  port 

9790  i 

1 

9000 

NAF  O  <0) 

9010 

MA 1  Sun  A  -  (  0 ) 

9070  f 

90.30 

FOR  .T-I-  TO  6 

1  Pnntin*’  ^o  r'f»rjuc^  indi/irluAl  port,  ral 

9040 

FOR  1-4  TO  10 

1  data  Irrto  el  ardent  to  a  jUM.ier  •  j 

9850 

Stin_x  (  J  )-5un 

.h(  J  )t;oc_caI(l<  ,I  )  J 

98G0 

r^EXT  I 

9870 

NEXT  J 

9800  1 

9090 

FOR  1-0  TO  3 

1  Derive  A  array 

9900 

FOR  J»0  TO  3 

9910 

A(  I  , J )*Sun  y (  I T  J  ) 

9920 

NEXT  J 

9930 

NEXT  ( 

9940 

A(0,0)^7 

9950  1 

99G0 

FOR  J-0  TO  3 

1  Derive  C  array 

9970 

FOR  1-4  TO  10 

9980 

C(  J  )-C(  J  >  +  Zoc. 

_cal<K.I  )*J*Zoc_cal(0,l  ) 

9990 

NEXT  I 

10000 

NEXT  J 

100101 

10020 

MAT  A_lnv-  INU( A  ) 

1  0030 

MAT  0«  A_lnv*C 

1  9  array  Is  natr|v  of  Least  Square 

100401 

coefficients  a0,al,a2,&  a3  for  polynonla 

100501 

equation  fitllnq  calibration  data  for  a 

100601 

sped  f  led  port 

100701 

1 00801 

Collect  Least  Square 

coef  f  id  ents 

10090 

Zoc_cal(K,0)-B(0) 

ICoeffldent  a0 

10100 

Zoc_ca 1 ( K , 1  )-B( 1  > 

ICoefficlent  al 

10110 

Zoc^caKK  ,2  )-B(2  ) 

ICoeffldent  a 2 

10120 

Zoc^caKK  .3>-B<3) 

ICoeffldent  a 3 

101301 

10140 

NEXT  K 

10150  I 

I0IG0  ASSIGN  0Oaia_pathl  TO  Oa I a^dl sc  I  $ iFORMAT  OFT 

10170  OUTPUT  eOata^paihl  iZoC^caK  M  IStore  reduced  ca  I  i  hr.nt  i  on  data 

10180  ASSIGN  ffOata^pathl  TO  * 

10190  1 

10200  PRINT  "Calibration  data  reduced  and  iransfert'ed  to  "  i  Da t f 1 1 e  I  * 
10210  I 

10220  I  Recover  raw  data,  convert  to  real,  reduce  then  store  tn  blocks 
10230  !  of  samples  (32«ports  scanned  per  block)* Itrav 

10240  I 

10250  I trav-Zoc_ca I  (  1  , 1  I  ) 

I02B0  Sn*Zoc_ca 1 ( 0  ♦  I  )  ^Sample  nunher . 


Figured,  (cont)  Program  "SC  AN_ZOC_U6" 


102 


10270  All.UCATf:  INTEGER  Da  t  nt  eq^r(  I  :  32  )  •Pirray  fo  h^ncllf?  tti.j  intnanr- 

10280  ALl.DlyATE  REAL  Da  t  a_reo  I  (  I  i  32  )  ,Do  t  a  (  32  )  •Arrav'^  to  fiinndl^  r  r^u  Afut  rrriuceti 


10790  ria  ♦  1  f^c2$’'Da  t  a_f  1  1  e7‘f  In  dr  I V $  lr«nl  rt  t  ^  n  . 

10300  Data_.f  1  In3$-”ZR"M>^L$(  7n)&nntrT;ftUAL5(Pr)  )  iporlor^H  rln  1.  ^  ffir  onoo  . 

10310  Data  di 3c3^*Datfl_f 1 1 n3f ^Dnt adr 1 vn$ 

10320  ('REAIF  nOAT  0ata_  dl  nrSS  ,Ft>»  1  trnv  ,8*33  f  i  )  of  .■k'  ''P  hvl^'  rnror  dn. 

I  0330  Fission  P?Uala_path2  TO  On  t  a_d  I  ac2T^  i  rffRflA  !  nr  f 

10340  ASSIGN  9Uata_path3  TO  On  t  a ,  d  1  i  rOffMA  F  OPf 

10390  ( 

I03GO  '  S  I  rp_  po  i  n  t  *=  2 
10370  S t rp_ I ncrpnent -32 • Sn+ 1 

10300  FOR  Group")  TO  Hrav 

10390  ) 

10400  (yONTROL  @Da  t  a_pat  h2  ,5  I  S  t  en_po  1  nt  ISnt  r^nd  pointer  to  ,'nd  record 

104  10  )  t  1  n  r  a  i.i  1  n  t  p  □ « r  r1  rT  t  n  f  i  1  p  . 

10420  S  t  «p_pol  n  t  »S  I  ep_po  1  nt  FS I  eD_  1  ncrenen  t  Mncrenr-ot.  pnlnt.'»t'  «;  t  af  t  point. 

10430  f 

10440  FOR  BlocT-l  TO  Sn 

10490  ENTER  0Dala_pa  t  h2  i  Da  ta_l  nt  eger  (  *  )  ILoad  rnbt  dnt.n  intc?  nr  r  nv  . 

I04B0  SELECT  Zoc_cal(0,2)  I  T  mnn  1  n  t  f  ng  rnui  Inter  cjp*'  r.Intn  Into 

10470  CASE  1  t  rnij  r  on  1  dn  I  n . 

10480  TrnfialatelAdcl  ,Uale_inteqer(«),Datn  renM  •  )) 

10490  CASE  2 

I  0500  Tranalato( Adc2  ,Da t a_l n leqer < •  )  .Data  ea 1 (  ■  ) t 

10510  CASE  3 

10520  Tranalatet  Adc3  ,Dflta_l  nleqer  (  *  )  ,Da  ta_rp.a  I  (  •  )  ) 

10530  END  SELECT 

10540  I 

10550  1  Data  chock  itcpa  connonted  out. 

105G0  I 

10570  IPRINTER  IS  702 

10580  tPRINT  "Integer  data" 

10590  IPRINT  Data_lnleger< • ) 

10600  IPRINT  "Real  data" 

10GI0  IPRINT  Data.reoK  * ) 

10G20  IPRINTER  IS  CRT 

I0G30  I 

106401  Routine  to  reduce  raw  real  data; 

IOG501 

I0G60I  Data  «  a0  +  al*x  +  a2*K"2  +  a3*x''3 

10G70I 


106801  utioro  a0,al,a2,  ^  a3  are  Least  Square  con  f  f  1  c  i  nri  t  s  ,  and  i  •; 

10G90I  the  individual  port  raw  data  value. 

107001 

10710  Data(0  )»Block  l  Store  reduce  rlala  ‘snnpl^  nunlier'. 

10720  FOR  K-l  TO  32 

10730  0ata(K  )-Zoc_cal(K  ,0  )+Zoc_cal( K , I  ) -Ua t a„rea 1 ( K ) t  Zoc_ra K  K ,2 ) 'Oa 

la_real (K  )"2  +  Zoc_cal <K  ,3  )*Data_roal ( K  >"3 


10740 

NEXT  K 

107501 

I07G0 

I 

10770 

IPRINTER  IS  702 

10780 

IPRINT  Data( *  ) 

!  Print  hloacL 

for  test  c runner) led  out. 

10790 

IPRINTER  IS  CRT 

10800 

1 

10810 

OUTPUT  9Dala„path3«Data( • ) 

I  Store  block  of 

reduced  data  into 

10020 

NEXT  Block 

! 1 nl o  the  file 

on  the  designated  drive 

10830 

NEXT  Group 

Figured,  (coiit)  Program  "SC AN_ZOC_06" 


103 


1 00-10  I 

I08SO  OSSIGN  *t)nln_pathj  TO  • 

10960  OSSIRN  <9|,l8la_path2  TO  • 

10870  r^IrJT  "Raw  data  redijced  attd  Ir’ang  f  ♦o  lOila  f  i  J  «  ^-T 

10000  riMMT 
10090  GOTO  rin 

10900  f.rr'ort  iPoul  Ir'f'  It)  ( r  nrror  t  f)  pfour-aM. 

10910  PIIIMT  FOTTMi; 

10920  roust 
10930  OEIUON 


10940  Fin:  i 
10960  SUOENO 

109601 - - -  -  -  - 

10970  I  Sijb?'0(j  I  i  )ia  to  loati  a-l5ttno  Tilas  rprjijirai*  h/  r9ii»  tDirtt'or  for-  a  ariarlflpd 
10900  I  roc,  anrj  asafqri  eafstlnq  filrs  to  llio  Filo'F  r-ratr-f-^  for  fi.ata  rorjijrtlori 
10990  I  nnd  list  fllfs  routines. 

I  1000  SUB  Fl  lo  .ac-anf  Zn) 

I  1010  COM  /Stats/  BEAL  Pu  1  ee  .Sanp  I  e.  iinrher  .P  nuse  for  .IIKTGFP  rat.nod  irt(3>.0at 
e$  .Run  ,  I tra V 


11020  COM  /Files/  F 1 1 eJ < •  )  ,0a t a_dr i vel 

11030  OIM  0ata_dl«cl*t 23  I  .Dnta_dl5c2St 23  )  .Data  .dlac3®( 23  I 

11040  Rn’l 

I  1 0S0  Loop” I 

I  1060  F i 1 e_ I n_3 loraoo”0 

11070  ON  ERROR  GOTO  Error 

I  1090  J-( Zn-I  )«3 

I  1090  U1ULE  Loop-1 

11100  File  1-0 

II  I  10  Data_f  Uel  S-”ZU"&UAL9(  Zn  >&Ua t  et&UfM.  T(  Rn  ) 

11120  Dala_discl*-0ata_f 1 lel*&nata_drl ve$ 

11130  ASSIGN  eChack^palhl  TO  Dala_dlscl*  IChecF  for  e-lstsiirr  of  ZU_. 

1M40  Flle$<Rn,J+1  )-Data_fllel$  Irtsslqn  ZU  to  Matr-t-.. 

11150  F  1  1  a  I - I 

IM60  1 

M 170  Data_f no2$"'ZC’&UAL*( Zn )&0a te*^UflL^ ( Rn ) 

I  I  I  80  Da  ta_ril  8cZS-0a t a_f  1 1  e2*&Da t a_t)r  1  ve® 

11190  ASSIGN  @Check_path2  TO  Dala_dl3c2S  'Chect  for  evl stance  of  ZC_. 

11200  FlloS(Rn,J  +  2  )-0ata_flleZ*  lAsslgn  7C,  to  natri-. 

11210  1 

I  1220  Data  f  1  le3$-"  ZR’&UALJI  Zn  )(t0ate$RUALS(  Rn  ) 


I  1230  0ate_dlsc3*«Data_f i le3$&0ata_drlve$ 

11240  ASSIGN  @Check_palh3  TO  0ata_dl3c3S  'CRecI  for  e-rlst-anc?  rnf  ;r„. 

11250  FlleS<Rn,J  +  3)-0ata_flle3*  lAssIqn  ZR_  to  natrl--. 

11260  I 

11270  GOTO  Asslqn_flla  'Ctieck  slorage  disc  -tqaln. 

11280  Error:  I  Subroutine  If  ERR0n»56 ,  files  donot  e-lst  for  Rn  at)d  Zoc 

I  1290  IF  ERRN05S  THEN 

11300  PRINT  ERRMS 

11310  PAUSE 

M320  END  IF 


I  1 330  A8Slgn_f 1  la : I 

11340  IF  Fllel*l  THEN  ISultch  to  exit  pr oqr an 

11350  F i le_l n_8 torago” I 

I  1360  END  IF 

I  1370  IF  Fllel-0  THEN 

11380  IF  Flle_ln_Btoraoe-l  THEN 

I  I  390  Loop-0 

11400  END  IF 


Figured,  (cont)  Program  "SC AN_ZOC_06" 
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1  UlO 

r-ND  ir 

1  I4?0 

0Chftck_pathl 

to  * 

1  1430 

ASSIGN  0Chftck_path2 

TO  • 

1  I  440 

AtiSlfiN  0r,h«ck_palh3 

TO  • 

1  14^50 

ir  Rn-I00  Tf^FN 

1  MR0 

1 oon"0 

1  1470 

rrin  if 

1  1  400 

Pn-Rtii  1 

M  4H0 

RNU  umil  E 

I  IP.00 

Fin:  1 

M  1  0 

Run^Rn- 2 

1  isro 

I  IS30 

SUPEND 

1 - 

Figured,  (cont)  Program  "SC AN_ZOC 


ArPENDIX  1).  DA  i  A  ANALYSIS  PROCILVM  "liEAD  /AK'2' 


HI 

2i) 

10 

10 

r;o 

HI 
DO 
‘10 
1  on 
r,o  1 
I  10 
I  ?0 
1.^0 
I  iO 
1^0 
1R0 
170 
IPO 
I  no 
TOO 
1 10 
77.?i 
2M7 
?40 

rso 

ZKO 

270 


.1R0 

370 

360 

390 

400 


Pr-ogr-zin:  70^.2 

I  p  I  Inn:  n^*nd3 
1)  V  P  I  r  1  Unnd  I  fl  nrl 
nnil  t  M  *?rf  hy  (j>n  v  1  ft  Myr 
Mn(H  f  I  ^rf  B  Nnv  1  967 


^p''r  I  f  I  »'rl  rtfl  I  n  rMnfl  t  !  •''!  <  r  nn  fif  /tr|r  f\f  J  /til'  09  . 


1 1  rnp  Lf'nrFN 
I'Ptdil  P  fn  f:rH 

1/>h1^  f  IfH  t  It'n  /mrl 
^(M1  /Plot  lAhfl3/  nmi  Vn 


rf|r^«r,-, 

.  f  .  »  n  .  1 


f  .IK  Jl  ,  ,  I  I  1  t  r.  M  (;(i  ) 


1  .>h«  I  Ti  i;o  I 


ffllFPffl  (1|^1'_^Hrlvf*,/or,Ptiri,l'}*»i**,6'^Mplo  tTlti  ‘K-»i 
IinpGFP  Pf'rl^nay  nn*  ,f\vQ 

PKPI.  lit  ,N2 

I  fj  I  t  I  A  I  1  rn  1 1  Of! 

P  I  n"  I  4  .  G  HR  1  6  t  ^ffttr^f  ft  Hav  ntMr>n|ihr»f  \r- 

L'nnv’  .  4  n  I  I  54  I  Pnffvrr-  3  1  f!fi  f  ron  (  n  Up  In 

G'^nn*  1.4  in.^ttonf  ipf*rlflrL''^t'» 

Gr'“.002G  1Rnl>  Fnn-nrf*  3  I  7  1  r*fi 

A  1  J  o^'  ^  t  r  tJ-*0 

I  0  I  nii'nf\  I  PH  ftrtnq  v,-«rlp|jl-  f  nt  t1 -» I  p  |Mf,iMnrir 

niM  nf^t/!_dt3rltfZ3) 

Din  di  9cr.?i  73 1 

1 

I  . . . . 


Il^  I  '• 


p  r  n  ^  t  ft  r> 

ll'.  1 


inur  KPY  POUTinFG  ANII  IIIIIIAL  SCPF-FN  fllGPlAY 


7M0 

ON 

KFY 

1 

LABEL 

•znc 

INPUT 

■  GOTO 

I  fipij  1 

2R0 

ON 

KEY 

4 

LABEL 

“SAVE  AS 

ASCII 

"  GOIO 

G  n  V  ^ 

300 

ON 

KEY 

3 

LAREI, 

“PRINT 

OAIA 

"  GOIO 

Pf  Int 

310 

OM 

KEY 

4 

LABEL 

"Cn 

PLOT 

“  GOTO 

Eft 

320 

ON 

KEY 

5 

LABEL 

“PI 

PLOI 

"  GOIO 

Pt 

330 

ON 

KEY 

6 

label 

- 

-  GOIO 

No  I  ft 

340 

ON 

KEY 

7 

LABEL 

'• 

•  GOIO 

11m  |,t 

350 

ON 

KEY 

6 

LABEL 

•EXIT 

PROG 

■  GOIO 

r  1  n  1 9  ti 

|t4ITlA(.  SCREEN  OISriAY 


4  10 

Reset ! 

1 

470 

CLEAR  SCREEN 

430 

PR  INf 

440 

PRIMI 

450 

PRINI 

REAO 

ZOC  OAIA  ANO  OISPLAr  AS  9M0MN-' 

4R0 

PR  INI 

470 

PRINI 

"  Inpiil 

70C  Infornstlort  /xnH  rr-^fl  rLi  ♦  ■> 

f  1 

400 

PRINT 

Sflve 

rptliired  fJetn  to  en  ASPfl  fll^ 

17 

4  90 

PRINT 

Print 

rlnle  tn  CRT  or  PRiNlf  R 

f  > 

900 

rniNT 

Plot 

find  Print  P/Pt 

f  1 

510 

PRINT 

Plot 

Pt  (Htn/Prtnl  losses 

1  9 

520 

PRINT 

530 

PRINT 

540 

PRINI 

Exit 

Proqren 

r  n 

550 

PRINT 

5G0 

t 

570 

Mold! 

1 

Figure  DI.  Progiain  "READ_ZOC2" 
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bU0  001(1  Hold 

000  I 

000  I  •  •  .  •  . . . 

0  10  iiriHHr  OAT  IHr-OniiAT  ION 

I . . . 


Oj0 
G40 
000 
RB0 
R70 
080 
G90 
700 
710 
720 
730 
740 
7S0 
7R0 
770 
780 
780 
000 
810 
820 
830 
040 
850 
8G0 
870 
880 
090 
900 
910 
920 
930 
940 
950 
9G0 
970 
900 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1  100 
1110 
1120 
1  130 
1  1  40 


T  ripu  t  :  ( 

I 

IF  nl located-!  THEN  FOSUB  Oeallocnfo 

I 

CLEAF<  SCREEN 

INRIiT  "Enter  Zoc  tt  M  ,2  ,3  )  ,  date  (  YMMOIJ  )  .  afid  run  K  :  "  ,  Zoc  ,0a  t  .Ri  ni 

PRINT 

PRINT 

PRINT 

Pf^JNT  "Enter  tfie  disl  drive  liihere  data  is  -  ( or^d  as  below. 

PRINT  "  0  13  HF5  format  or  700,0" 

PRINT  "  1  IS  LIF  floppy  or  700,1" 

PRINT 

INPUT  "Enter  Disc  where  data  is  located:  *’  ,0l  si  _dr  i  ve 
PRINT 


FILE/DISK  PATH  ASSIGNED 


Oala_f  i  lel$”"ZC"SUAL'B(  Zoc  )P»0a  t  e$?yUAL«{  Run  ) 
Data_f  i  le2$-''  ZR"^UAL$(  Zoc  I^Da t  e$&UAL$(  Run  ) 
SELECT  DlsT^drive 
CASE  0 

Dota__dlsc  i‘T  =  l)ata_f  i  lelSJ^"  :  ,700  ,0" 
Data_disc2S-L)ata_f  i  le2$&"  :  .700  .0" 

CASE  1 

Oata_dlscl  t-Data_f  1  lel^f^"  :  ,700 , 1  " 
Data„dl3c2$-Data_f 1 le2$&" : ,700 , 1 " 

END  SELECT 

ASSIGN  @Data_path1  TO  Data_discl'5 
ASSIGN  ®Data_path2  TO  Data_disc2$ 


DETERMINE  NUMBER  OF  RECORDS  AND  ENTER  DATA. 


STATUS  ©Data^pathl  ,3tNl 
STATUS  @0ata_path2  ,3tN2 
ALLOCATE  REAL  Cal(Nl-l .11) 
ENTER  ©Data_path1 fCal< ♦ ) 

Per  i  od«-Ca  1(0,0) 

Hz*^  1  /Par  i  od 

Samp  1 e_nunber*Ca 1 ( 0 , 1  ) 
Zoc'CaKO  ,2  ) 

Scan_t ype=Ca 1 < 0 , 1 1  ) 
Scan_max«Ca 1 (1,11) 

Increment *Ca 1 ( 2 , 1 1  )♦. 0000625 
P_atm**Cal(3J  1  ) 

1 

ALLOCATE  REAL  Dat a( 1 : N2 ,0 : 32 ) 


I  Determine  number  of  records 
1  Determine  riumber  of  r'ernrtls 
I  Define  Rl’AI  -sr-r’ay  of  recor  ds 


IConvart  steps  to  inches. 


(Allocate  real  data  array 


Figure  Dl.  (cont)  Program  "READ_ZOC2" 
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I  1  bO  F.NTr:R  t a  _pa t  h2  1 0(1 1  cT <*  ) 

1160  J f-  Sc riD  Pi'i  V  THFfJ 
M70  Al  LUCA  re  RHAL  P  i <  1  :  .^7 . 1  :  7  ) 
risp 

lino  AU.OCAIC  PFAl  P.-^(  I  :  37  .  1  :Sr  3n 
1700  Frio  ir 
17  10  I 

I  ^  0  A  I  1  o  c  '1 1  e  d  “  I  I  A  I  I  o  1,1 c'  I  1  o  c  0  f  •  A  f )  f  I '  "3  M I . 

ir.y.o  I 

I  ;mo  I . * . . . . . . . . 

i:bO  IPE  AUS  AOFRAPE  (JF  ALL  SAHPLES  T  f)  Af-PAvS 

1260  I . . . . . . 

1270  1 

1200  Rf^ad:  'Rp-ids  reduced  data  n  array. 

1290  I 

1300  Sanpla  Min=^|  i  rir«;t  ^ampie 

1310  Sanp i e_nar "Samp  1 n ^number  i  Last  sample 
I3Z0  I 

1330  FOR  Scan-1  TO  Scan_ma* 

1340  I 

1350  FOR  Ron t_number= 1  TO  32 

1360  I 

1370  Pq_sum*0 

I  3B0  FOR  Samp  1  G*Samp  1  e__m  1  n  TO  Samp  I  «  na  •. 

1390  Pq^Da t a (  Samp  1  e  , Pof' t  riumh nr  )  l  Oata  r  ead  fr-r.r^i  reduced  data. 

1400  Pg_5um»PQ_sun'+ Pg 

1410  next  Sample 

1420  1 

1430  Pa_avg’( Pg_5um/ Samp i e_number )*Conv+P_alm 

1440  Pa( Port_number ,Scen )^Pa_avQ 

14B0  1 

1460  NEXT  Port_number 

14  70  Samp  I  e_m  I  Samp  1  e_m  i  n  +  Samp  I  e_number 

1490  Sample_max*Sampl e_max  Samp  1  e_number 

1  490  1 

1500  NEXT  Scan 

1510  OISP  “Data  read  from  disF  and  transferrerj  to  arrav. 

1520  WAIT  2 
1530  GOTO  Reset 
1540  1 

1550  1  •  *  •  . . .  *  . . . . .  *  4  ...**.  *  . . . . . . 

1560  IROUTINE  STORES  DATA  TO  AN  ASCII  FILE 

1570  1  . . *  *.♦•.**..**.*  *••.•♦..4  4  . . . . . . 

I5B0  I 

1590  Save:  I 

1600  I 

1610  CLEAR  SCREEN 

1620  INPUT  "Store  on  hard  or  floppy  drive  (0=:,700,  1  “ :  , /'OO  ,  1  >  t  "  ,0rv 
1630  PRINT  “Storing  data  please  wait“ 

1640  IF  Drv-0  THEN 
1 650  Drv$" “ !  ,700“ 

1660  ELSE 

1670  Orv$-“ :  ,700 ,1  “ 

1600  END  IF 
1690  Asc$«"A'* 

!  700  F  I  1  ename'?  =  Da  t  a_f  1  1  e2$fiAsc$SDrv$ 

1710  CREATE  ASCII  FiJename$J0 
1720  ASSIGN  @Path_1  TO  Filename^ 

Figure  Dl.  (cont)  Program  "READ_ZOC2" 
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I  730  OUIPUT  f^Pot.h_l  ?Pa(  •  ) 

1740  f^P^!th_l  U)  • 

17S0  PfMMl 

I  7G0  r'fMfil  "Oat  a  tor  fid  to  f^SClI  filo  r-^  1  1  "  ;  (‘ t  I  efionr.'B 

1770  WAIT  7 
i7nn  porn 
I7tl0  I 

1800  . . . .  .  . . . . . . . . 

1810  »PRiriTP  PAIA  ro  PRiniFR  AR  ART  corfFM  A-.  DFRIRFf) 

18.^0  I . . . . . . 

1030  I 
1040  Print : < 

ies0  CLFAF?  scr^FF.n 

1  OG0  I 

1870  IMP  111  Orint  fo  r^crr^n  or  pr‘in+^r  (('''-  tr^-.n  1-Prjntpr>' 

1800  IF  Wiew-I  FMFN  PRINTFF^  IS  702 
1800  I 


1  800  1 

1010  Pf^  I N  r  " T)o  t  o  1 'r  i  n  t  Out  f  or  Zoc  #  ”  ;  Z or  ;  "  ,  Ri mi  tt '  ;  I'm m  t  '  ,  f  1  1  n  '  ;  ( M  t  n  f  )  i  p2 15 

1920  PRINT  7  AR  ( ) :  "  Por  1  od  tiptue^^n  oonpleg  (  ripc  )  :  "  ;  f  ''r  i  r>d 

1830  PRINT  r  AP(  0  )  ?  "  Samp  1  e  collection  r^te  <11:-): 

1940  PRINT  1  AM  <  T)  '  I  "  Nunbor'  of  sanplos  prr'  finr't:  "  ; -r«inr3 1  e  nuribof' 

1950  PRINT  T  AB  (  5  )  i  ■' Long  t  h  of  data  run  <  «5ec  ) :  Pr>r  i  <)d  •  3  1  »  Samp  I  e  riunber' •  Scan 

max 


1960  PRINT  TAR(5);"The  scan  tvpe  Is: 

19  70  PRINT  TABt  5  )  f  " Number  of  scans/traverse. 5: 
1980  PRINT  T AB( 5  )  j " I ncrement  of  traverse: 

1990  PRINT  1  AB(  5  )  I  *' Atmospher  1C  pressure  is: 
2000  PRINT  TAB ( 5  )  < "Tunne 1  Pressure  Ratio  is: 
2010  PRINT 
2020  PRINT 


!  'jcan  tvpe 
;  Scan  na ^ 

"increment;"  Inches 
"  '  P_'-'’  t  n  I  "  PS  j  '■ 

" ;Pa( 30  .  I  )/Pa<  29.1) 


2030  I 

2040  Format  1  : 

,20.30 

2050  Format2: 
,20.30 


IMAGE  20  ,6X  . 20 . 30  ,4X  ,20 . 30 , 4y  ,20.30 ,4X ,20.30  ,4X ,20.30 .4X  ,20.30  .4X 
IMAGE  20  ,BX  ,  20 . 30 . 4 X . 20 . 30 , 4X . 20 . 30 , 4 X ,20 . 50 , 4 X ,20.30 ,4X  ,20.30 ,4X 


20S0  1 


2070  IF  Scan_max:7  THEN 

2080  PRINT  "Scari",”  Port  Number" 

2090  PRINT  ••  r*  /  2","  3"."  4","  5’“,"  6","  7 

2100  PRINT 

2110  FOR  I-l  TO  Scan_max 


2120  PRINT  USING  Format  1  i  I  .Pa(  1  . 1)  .Fa(  2  . 1  )  ,Pa(  3 . 1  >  .Pa(  4  ,  I  )  .I'at  5  .  I  )  .Pat  6 . 1)  . 


Pa(7.I  ) 

2130 

NEXT  I 

2140 

FOR  .1--1  TO  3 

2150 

PRINT 

2160 

NEXT  J 

2170 

PRINT  •Scan”," 

Port  Number" 

2190 

PRINI  "  8", 

„  g.. 

10"  11 "  ,"12"  ,"13"  ,"14 " 

2190 

PRINT 

2200 

FOR  I-l  TO  Scan 

_max 

2210 

PRINT  USING 

Foma  11  il  .Pa<8,I  ).Pa<9,I  )  .Pa(  1  0 . 1  )  .Pa(  1 

.1  )  ,Pe<  14  ,n 


2220 

NEXT  I 

2230 

FOR  J»1  TO  3 

2240 

PRINT 

2250 

NEXT  J 

2260 

PRINT  "Scan"," 

Port 

Number " 

2270 

PRINT  "  "."15" 

." 16" ," 17" 

18"  ,"19"  ,"20"  ,"21  ” 

Figure  Dl.  (cont)  Program  "READ_ZOC2" 
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2780  ppirn 

7280  P8R  l-l  TO  Scan^fnr^y 

2300  PRINT  USING  Fornat  I  ;  I  ,Pc»(  18.1  )  18,1  \  1  i  ,[  >  ,r=i(  1  P  .  I  >  JX  18.1  )  .Pa< 

70 . I  )  ,Pa( 2  1  .  n 


2310 

NEXT  1 

2320 

FOR  J-1 

TO  3 

2330 

PRINf 

2340 

riFXT  J 

2350 

f’RINT  ■’’ 

’can"  ,  " 

Port  Number' 

2360 

PR  INI 

M  '*  7  *7  *' 

"23"  ."2t"  .‘‘25"  ,"2G"  ,":7"  .  "rp" 

2370 

f'RINT 

2380 

FOR  T-1 

1  Scan 

_mar 

2390 

PRINT  USING 

F orma  t  1  :  I  ,Pa  (  22  .  1  )  .TL'^  <  2  3  ,  I  )  .f'  ■' 

27,1)  ,Pri<  28  ,I  ) 

2400  NFXI  I 
24  10  FOR  .1-1  10  3 
2420  PRINT 
2430  NFXT  J 

24  40  PRINT  "Sc'-^n”  , Port  Number " 

24S0  PRIN1  '■  "  .”29"  ."30'*  .''Jl"  ."32" 

24G0  PRINT 

2470  FOR  I“1  TO  Scan_nax 

24  80  PRINT  USING  Format  1  i  I  ,Pg (  29 , 1  >  ,Ra<  30  .  P  .P-^ (  3  I  ,  I  >  .Pa02  ,  I  ) 

2490  NEXT  I 
2800  I 
2510  ELSE 
2520  1 

2530  PRINT  "Pori"  ,  Scan  Number" 

2540  PRINT  "  ■■  ,"1"  ,"2"  ."3"  ."4"  ,"5*’  ."G"  ."7" 

2550  PRINT 

2560  FOR  I-l  TO  32 

2570  PRINT  USING  Fornat2  ;  I  ,Pa(  1  , 1)  ,Pa(  I  ,2  )  ,Pa(  I  ,3  )  .Pad  ,4  )  ,Pa(  I  ,5  )  ,Pa(  I  , 

G  )  ,Pa<  I  ,7) 

2580  NEXT  I 

2590  END  IF 
2G00  PRINTER  IS  CRT 
2610  GOTO  Reset 
2G20  1 

2630  1 

2640  I  . . . .  . . . . . 

2G50  IPLOT  AND  PRINT  Cp  DATA  AND  SAUE  TO  ASCII  FILE 

26G0  I  ♦.*•4  *4..  . . . . . . 

2B70  1 
2680  Cp:  I 
2G90  1 

2700  ALLOCATE  INTEGER  Pen(1:25) 

2710  ALLOCATE  REAL  X(l:25) 

2720  ALLOCATE  REAL  P^Ioca  1  (  1  :  25 . 1  :  Scan_,max  ) 

2730  ALLOCATE  REAL  P_l n f (  1  : 5can_max  ) 

2740  ALLOCATE  REAL  P_ref( 1 :Scan_ma>  ) 

2750  ALLOCATE  REAL  M_i n f ( 1 : Scan_may ) 

2760  I 

2770  IIP  5can_max<'7  THEN 

2780  1  ALLOCATE  REAL  8(1:25,1:7) 

2790  1  ALLOCATE  REAL  Cp( 1:25,1:7) 

2800  1  ALLOCATE  REAL  M_loca i (  1 : 25 . 1 : 7  ) 

2010  1  ALLOCATE  REAL  P_norma i (1 : 25 . 1 : 7 ) 

2820  lELSE 


Figure  Dl.  (cont)  Program  "READ_Z0C2" 
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..'').30  PEAL  B(l:^5,l  :  Scan  n^'»'  ) 

:S40  AIJOCAIR  RE^l.  Cp(  I  :;:SJ  rScan  nci:  ) 

uHSO  /^ILOCAIf  f^f-r\L  M  1ocal(  1  w‘'S  ,  1  :  Scan  > 

^ 0  Al ,  I  0(,' A  T  F  REAL  P  norna  I  (  I  :  r ,  I  !  S ^  an  >.  ) 

;:970  if.un  ]v 
:nR0  I 

1^090  nesTORp 

?.3m  » 

J:3  !  0  DATA  0  .  {RR7  ,0.  ,0. 33.33  .0.34^7  .0 .3R  ,0 . 3733  ,0  .  .'73'.'  ,0.4  .0  .  •!  I  '3,0.  1  PBT  ,0 . 4400  . 

0. 4S;33 ,0. 4fj67  ,0. 4R00  ,0. 4E133  ,0.B0B7  ,0.B2  .0.B333  ,0.  RR  ,7  .SBB7  .0.fj  I  S'*  .  0  .  f.  4  00  , 0 . 7B 
39Z0  DATA  0.B333  ,0.S!n7 
3930  I 

Z940  READ  X  ^  *  )  •  Read  mi  -t- j 1  I  oca  t  !  on  f  por  t  «. 

3950  I 

3950  <  Co  leu  I  ate  reference  par’anetera. 

2970  I 

29R0  FOR  I- 1  TO  Scan_Mav. 

2590  P_,inf  (  n-Pa(  29 , 1  )  iRet  R_lnf  f-^r'  .ill 

3000  f  ^  I  )~Pa  (31,1)  I  Ae  t  P  r  f  f  o*'  I  |  a  tm  . 

^0  1  0  N_  I  n  f  (  f  )'^S0R  T  (  2  /  (  Ganr>ia  -  I  )  •  <  (  P„r  f  (  I  )  /  T'  i  u  f  (  f  '  )  '  ^  (  ^^’ar>nn  -  M  '  G.^rona  )  -  I  >  ) 

3020  NEXT  I 
5030  t 


3040  t  Calculate  local  flow  parameter?,. 

3050  I 

3050  FOR  I- I  TO  25 

3070  FOR  J“1  TO  Scan_nax 

3090  P_loGai(  I  ,J  >-Ra(  I  ,J  )  iGet  P  Jccal  fof'  all  scans. 

3090  P^nornaK  I  ,J  )-P_local<  I  .J  )/P._ref<  J  )  iNornal  iced  r'ressure 

3100  Cp(I,J)«<2/<  Ganna  •M_i  n  f<J  >'’2  ))*<  (P_1ocal(  I  ,J  )/P_lrtf(  j  ))-l  ) 

3110  fLiocal  (  I  .J  >-S0RT(  2/ (Ganna- I  )*(  (P_ref  <  .1  >.'P,  local  (],.!))''((  Ganna-  1  )/G 

anna  )- 1  )  ) 


3120  NEXT  J 
3130  NEXT  I 
3140  t 

3150  IPloi  Cp  or  !1_ local  vs  y. /c  below.* 

3160  J 

3170  P lol_cpnach: * 

3180  I 

5190  CLEAR  SCREEN 
3200  1 

3210  PRINT  "  POST  PROCESSING  OF  Static  Pressure  Data 

3220  PRINT 
3230  PRINT 


5240 

3250 

5260 

3270 

3280 

3290 

3300 

3310 

3320 

3350 

3340 

3350 

3360 

5570 

3380 

3390 


t 

PRINT  '• 
PRINT  ’• 
PRINT 
PRINT  " 
PRINT  •’ 
PRINT  " 
PRINT 
INPUT  " 
INPUT  " 
INPUT  " 
INPUT  " 

I 

IF  Dunp* 
OUMP 
ELSE 


The  following  routine  will  iiiot  and  print  P/Pt  or  Mach  Nunber" 
for  a  single  scan  desired  or  a  set  of  seven  scans." 

The  selections  are  as  follows.."' 

1.  Plot  Cp  (then  provide  scan  or  scans  dps  i  r- ) '" 

2.  Plot  Mach  Nunber  (provide  scans  rss  above'" 

Input  the  paraneter  to  p  1  o  t  (  0 -R/P  t  ,  1  “^Mac  h  ) '"  ,  F  1  o  1  _ca5e 
Input  the  first  scan  to  be  p  1  ot  t  ed ,  F  i  r  s  t_5can 
Input  the  last  scan  to  be  plotted"  .Last^scan 
Dunp  plots  to  Laser  or  IhlnFjet  (  T  J-0  ,LJ- I  )"  ,DLir>p 

I  THEN 
DEUICE  IS  9 


Figure  Dl.  (cont)  Program  "READ_ZOC2" 
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3400  IjliMP  DCUICE  IS  702 
3410  ENO  ir 
3470  I 

3430  '  I  n  I  t  i  .1 1  i  r gf'aphlcs  environp>pnt 

3440  t 

34Siv3  Vo-O 

3IG0  Vf^-i 

3470  IV-IO 


3480  Uy-10 

34  80  r  P«n^  ^-1  )  'Pen  control  pr^ranoter  Von  rv^v  i  ng 

3800  Pen(  I  )--2 

3510  Pori(25)  =  -2  iPen  coritrol  parc^motpr  'pon  np  Piovtnfj’. 

5520  I 

3530  SELECT  Plol_-P5e 
3540  cast  0 

3550  [  i  t  1  e'5  =  ‘’Norn.=?  I  i  zorj  Pressure  vs.  f-erc^'nl-  Cfiord" 

35B0  V  lahe  1  $=  "  y /c  *' 

-’.570  y._label$='’P/Pt‘‘ 

3500  Vo*0 

3590  Yf=1 

3B00  CASE  t 

3BI0  T  I  t  I  e$  =  "  riac  h  nunber  vs.  Percent  i't»or'd 

3620  x_labe  l$=*"y /c " 

3B30  V  _1  abe  IS' "Macli  Nunber" 

3640  Yo-0 

3650  Vf-2 

3660  END  SELECT 


3670  I 

3600  LIME  TVPE  1  »Plrsl  line  type 
3690  N"3  •Second  line  type 

3700  I 

3710  CALL  Plot  'Sets  up  gr''phi/-s  haci  around 

3720  rOF^  J'Plrst  scan  TO  Last^scan 

3730  FOR  1-1  10  25 

3740  SELECT  Plot^case 

3750  CASE  0 

3760  PLOT  X(  I  )  ,P_norna I ( I  , J  )  ,Pon(  n 

3770  CASE  1 

3760  PLOT  X(  I  )  ,M_locai(  I  , J  )  .Pent  1  ) 

3790  END  SELECT 

3800  NEXT  I 
3010  LINE  TYPE  N 

3820  N=N4l 

3830  NEXT  J 


3640  I 
3850  PAUSE 
3960  i 

3870  CLEAR  SCREEN 
3090  I 

3890  INPUT  "Would  you  like  to  make  another  plot  ( Y^y es  .M«no  ) ? "  ,0oS 
3900  IF  Go$"”Y"  THEN  Plot^cpnach 
3910  ! 

3920  IThe  following  routine  will  print  P/Pt  or  Mach  nunber  for  the  scans  aelectc 
d 

3930  I 

3940  FOR  P*1  TO  5 
3950  PRINI 
3960  NFXT  P 

3970  PRINT  "The  following  will  print  P/Pt  or  Mach  Nunber  data  for  scans  selected 
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"Select  7  scans  to  hracl^et  data  plotN''r1  -->fiovr  or  aov  -  Hioi  o. 

J990  PPFNr 

I^Rnn  “  1  ho  scans  solectod  for  [^r'lnfiru:}  r^tiist  h-"  -^./ailablo  I  ho  data  " 

4010  PPIMT  "ir  "lartlnQ  af  scan  t.ihon  onlv  scans  1-"  avsllnhl^  ».' j  1  !  results" 
4070  PRirir  ”  in  F.RROR  1  7 . 

4030  FRINI 

4040  IMf^dT  "I'Jould  you  IjIo  to  pr'int  ttio  P/P^  or  INoh  flnnh'^f  D^fn  ^  os  , 

Go  1  * 

4OS0  ir  Gol  rMFN  St  IP  pr'int 

4060  1 

4070  INPUT  "  Nou  i  d  you  I  it  a  to  pr  int  P/Pt  rr  Norti  Munhp'r  '0-p/fM  ) -(larf  i  )7 ’’  ^Pp  _ri 

4OR0  INPUT  "Input  I  tip  first  of  spvpn  scans  to  ho  printoH.'\r'^ 

4090  INFIII  ’Trint  to  CRT  or'  pr  i  n t  pr(  0=t'RT  ,  ] -Fh' i  n  1 , h' i 
4  100  I 

4110  IF  Cp_n-0  TNEN 
4  120  nOl  B“=  P__norna  1 
4130  ELSE 

4140  M^T  B=  M^Iocal 
4150  END  IF 
4  1B0  f 

4170  IF  Uiftw^l  THEN  PRINTER  IS  702 
4  180  1 

4  190  PRINT  "Port"  ,"  Scan  Nuriber" 

4200  PRINT 

4210  PRINT  ”  "  .Fs  ,F54  1  ,Fs+2  ,Fs43  .P5^4  ,Fs+-S  ,Fs  1^6 

4220  PRINT 

4230  FOR  1=1  TO  25 

4  240  PRINT  USING  Pornat2  i  I  .B(  I  ,F  s  )  ,B(  I  .Fs  H  .rs  +  2  )  .D(  I  .T  s  >-3  )  ,B(  I  ,Fs  +  4  )  ,B 

( I  .Fs^B  )  ,B( I  ,F5+6  ) 

4250  NEXT  I 

42G0  I 

4270  Pf^USE 

4280  Ski p_|ir  1  nt  :  1 

4290  PRINTER  IS  CRT 

4300  DEALLOCATE  Cp(  •  ) 

4310  DEALLOCATE  B(  •  > 

4320  DEALLOCATE  P.^locaKO 
4330  DEALLOCATE  P_nornal(*) 

4340  DEALLOCATE  P_lnf( • > 

4350  DEALLOCATE  P_ref(M 
43G0  DEALLOCATE  M_lnf(*) 

4370  DEALLOCATE  M^locaKO 
4380  DEALLOCATE  X(  *  ) 

4390  DEALLOCATE  Ppn( •  ) 

4400  KEY  LABELS  ON 
4410  I 

4420  GOTO  Reset 
4430  I 

4440  I********** . . . . . . 

4450  IPLOT  Pt  DATA  AND  LOAD  INTO  ARRAY(S)  TO  SAUE  TO  ASCII  FILE 

4460  I . * . . . * . . . . . . 

4470  I 
4480  PI :  I 
4490  1 

4500  CLEAR  SCREEN 
45(0  i 

4520  PRINT  "  POST  PROCESSING  OF  TOTAL  PRESSURE  DATA" 

4530  PRINT 
4540  PRINT 
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4*^60 
4S70 
4S80 
4590 
4500 
4510 
4520 
4G30 
4540 
4650 
4650 
4570 
4580 
46  90 
4  70V-) 
1710 
4  720 
4  730 
4740 
4750 
4750 
4770 
4700 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4  880 
4890 


PRiril 
PRIfU 
PP 

PFUfM 
PRINT 
INPUT 
INPUl 
INPUT 
PRINT 
P/^USE 
I 

IF  Uurip  = 
OUMF' 
ELSE 
DUMP 
EliO  IF 

I 

•  fM  local. 

I 

AL  LOCATE 
ALLOCATE 
ALLOCATE 
ALLOCATE 
ALLOCATE 
ALLOCATE 
ALLOCATE 
ALLOCAIF 
ALLOCATE 
ALLOCATE 
ALLOCAIE 
ALLOCATE 
ALLOCATE 

I 

P  1  O  t  _p  t  ! 


This  routine  uill  plot  vertical  r*  f  from 

t  fne  probe  inparf  t^nr)  ln‘-r«q  nr>r  n,"  | 

by  inlet  Hynanic  rr*«5iir^  To  ''alotilri*®  -i  l)?c 


Ounp  plots  tc  Loser  nr*  fli  1  nt  let  f  0-*  f  I  ,  I  'I.  J  )  .  "  . I'unp 
Maxi  nun  Recorded  Plenun  l«nperet‘jr“  ir>  dep  F.  '.Mn.- 
Mtninnun  Recorded  Plentjn  Tenperatuno  doq  F, 

Type  FZ  to  contlnuetno  other  inpul'^ 


I  THEN 
DEOTCE  IS  9 


1  Mn  I  r) 
O  t  )  I  • 


DEO  ICE  IS  702 


e  all  real  variables 

INTEGER  Pen2( I :Scan_nay ) 
REAL  P_re  f  (  1  *•  Scan  no > 
REAL  P_tnM 1 :Scan_na»  ) 
REAL  P__e'<it<  1  :Snan  na-  ) 
REAL  Y<  1  :Scan__na.y  ) 

REAL  Pt<  1  :5can_na/  ) 

REAL  M_lnf<  1 :Scan_nax ) 
REAL  M_ex 1 1 ( 1  : Scan^nax  ) 
REAL  Ma 1 ( 1 : Scan_nax ) 

REAL  Ma2(  1 tScan_nax  ) 

REAL  Ma3(  1  :5can_na.y  ) 

REAL  Ma4(  1 :Scan_nax  ) 

REAL  Q(  1  :Scan_na.x  ) 


4900  I  Initialize  plot  paraneters 
4910  LINE  TYPE  1 

4920  T 1 t I €$“ "Uer t i c 1 e  Distance  Traversed  vs,  Pt" 

4930  X_label $="Total  Pressure  (psia)" 

4940  Y_labe 1 $="Uert leal  Distance  tin)" 

4950  Xo=30 
4960  Xf-60 
4970  Yo-? 

4980  Yf’0 

4990  n;<-30 

5000  ny-32 

5010  MAT  Pen2=  ( -1  ) 

5020  Pen2( 1  )«-2 

5030  Pen2( Scan _nay  )“-2 

5040  I 

5050  CALL  Plot  ISets  up  graphics  environnent 

5060  I 

5070  ‘Flouj  quantities  calculated  and  total  pressure  plotted. 
5080  1 

5090  Gc-52.2 

5100  Rgas'55.3 

5110  T tnay *Tt nax+460 

5120  T tni n- T tn 1 n+4G0 

5130Tt“<Ttnax+Ttnin)/2 
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bl40  ! 

5150  1-1  TO  Scan_nay 

51B0  I  .^5.1  ) 

5170  t(  T  )-Pn(  30 ,1) 

5100  P_rpf(  1  )-P.:^(3I  ,I  ) 

5100  PtM  ^ -Pen  (32, 1  ) 

5200  I 

5210  fUi o  t  1  -  I  4  4  •  P  _r  f»  f  <  I  )  /  (  P  q.^  n  •  1  t,  ) 

5220  Rhot2*U4*Pt(  I  )/(PQa«5*n  ) 

5230  I 

5240  H_i  n  f  (  I  )-SQR  r(  (  2  /  ^  Grinna  - 1  >  )  •^  (  (  P  re  T  ^  1  )  /  P'  ?  n  t  (  f  '  >  (  '  O.inri.n  I  ) G^nrine  )-  1  )  ) 

5250  0_ey.  i  t  (  I  )  =  5QRT  (  (  2  /  (  Gc^ronn-  I  )  )  *  (  (  P  f.  (  1  ?  /  P  ^  H  (  1  ^  (  i  1  )  /G.nnri.n  )  -  1  )  ) 

5260  I 

5270  TI-Tt/(  U(  (Ganna-1  )/2  I  )  )  2) 

5260  7  2  =  Tt/(  l+(  (  Ganna- 1  ) /2  )  -  (  i  I  <  DV?.) 

5290  1 

5300  A 1 “SORT <  Ganna^Rqas  *  T 1 »Gc ) 

53  1  0  A2  =  SQRT <  Ganna ♦Rqas  *  T2  *  Gc ) 

5320  1 

5350  Ol-Al •M_inf ( I  ) 

5340  02'A2*M_exit( I ) 

5350  I 

53G0  Rhol“Rhot  1  M  1  +  (  (  Ganna- 1  )/2  )  •M_i  n  f  (  I)  )  (  -  (  1  1  )  '  ) 

5370  Rho2  =  Rhol2  *  (  1  +  (  (  Ganna-  1  )/2  )  •M^ex  i  t  (  I  ')'(-(  !  /  ( (Tanna-  1  )  )  ' 

5380  i 

5390  Mai ( I )-Rho1 *01 

5400  Ma2< I  )=Rho2*U2 

5410  Ma3(  I  )»Rhol  *U1  *P_,ref  (  1)^144 
5420  ria4(  I  )=Rho2«02*Pt  (  I  )*144 

5430  I 

5440  Q(  I  )=P_ref( 1  )-P_lnf<  I ) 

5450  I 

5460  Y<  I  )*( 1-1  )*Increnent 

5470  PLOT  Fl< I  )  .Y< I  )  .Pen2( I  ) 

5480  NEXT  I 
5490  1 

5500  FOR  1^1  TO  5can_nax 
5510  PLOT  P_ref< I  )  .Y( I  )  ,Pen2< I  ) 

5520  NEXT  I 
5530  1 

5540  FOR  I-'l  TO  Scan_nax 

5550  PLOT  P_eyit( I  )  .Y(I  )  ,Pen2( I  ) 

5560  NEXT  I 
5570  I 
5580  PmSE 
5590  » 

5B00  INPUT  "Would  you  llF  e  to  nake  another  plot  (  Y-yp*5  ,M-no  "  ,Got 
5G10  IF  Go$-"Y"  THEN  Piot^pt 
5G20  I 

5630  CLEAR  SCREEN 
5840  1 
5650  PRINT 
5B60  PRINT 

5670  UI5P  “Now  calculating  cascade  loss  coe  f  f  i  c  i  eti  1  ' 

5680  I 

5690  Rhovl'^0  'Iniliallre  lotaluiq  var'lables 

5700  Rhov2""0 
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^7  I  W  H'ho  vp  f  i  “0 
Rhnvpf,’-C^ 

B730  1  n*0 

-740  I 

S  BO  r  OR  T  '  I  i  ( ^  ^•, r  ri  _na  •.  M  t  (H  i  m  '*  s  •=»  ^  /^r  ;  i  no  fi i  j n  t  t  = 

57G0  Rhnv  1  "(^ho'z  I  H-|a  )  (  I  ) 

B770  (Oin v7“Rhf>v3  ffla? (  I  ^ 

57R0  Rhnvo^  ) “Rhovpt  1 >M^3(  I  ) 

B700  I'hovD  i  ^•“Rliovp  1 3  ^  Ma  4  (  I  ) 

B90O  fj  \  n=0  t  r>  ♦  (J<  I  ) 

BO  10  NR XI  I 
B070  I 

0030  A vq  !  “P hoy  1  / 5c Gn  n.^> 

SB 4  0  Avr}2=*Rhov2/5c.?n 
5550  Avqj-’Rhovo t  1 /5can_nax 
58B0  AvQ4’f^hovp  t  3/Scan_rna  ^ 

5870  Avqb'Oin/Scan  Max 
5880  I 

5090  na  I -Ovq J/ (  Avq  1  •  1  44  ) 

5900  P 1 Ma2-A vq4 / ( Avg7 • 1 44  ) 

5910  0avQ=»Avq5 

5970  W_bar'^<  P  I na  1  *  P  tna^  ) /Qa\' a 
5930  ‘ 

5940  INPUT  "Print  Los'^e?  to  CRT  or  Printer  (  O'-^CP.  f  ,  1  *rFM  N  I  RR  ) "  ,l  P'S 
5950  IF  L053P-1  TFIEN  PRINTER  IS  702 
5960  I 


5970 

FOR  I-)  TO 

5 

5980 

PRINT 

5990 

NEXT  I 

GO00 

1 

6010 

PR  INI  " 

The  cascade  loss  coefficient  based  on 

6020 

PRINT  " 

dv'nanic  pressure  as  calculated  uslnq 

6030 

PRINT 

Mass  averaged  quantities  as  shown  heL 

6040 

PR  INI 

6050 

PRINT 

6060 

PRINT 

6070 

PRINT  " 

Ptnal  =  •'  jPtnal  i  "  PSIA" 

6080 

PRINT 

PtMa2  -  ■•?PtMa2{  "  PSIA" 

6090 

PRINT 

6100 

PRINT  *• 

Pt  t-Pl  “  "  iOavg;  •'  PSIA" 

61  10 

PRINT  “ 

Ttavg  -  "  ;  T t  i  “  deg  R" 

6120 

PRINT 

6  130 

PRINT  " 

U_bar  =  "lU^bar 

6140 

PRINT 

6150 

DISP  " 

Type  E2  to  return  to  Main  Menu" 

6160 

PAUSE 

6170 

•Deallocate  all  real  variables 

6180 

1 

6190 

DEALLOCATE 

Pen2 ( •  ) 

6200 

DEALLOCATE 

F’_lnf(  *  ) 

6210 

DEALLOCATE 

P^ex t  t( •  ) 

6220 

DEALLOCATE 

F_ref < • ) 

6250 

DEALLOCATE 

ri_  i  n  f  <  *  ) 

6240 

DEALLOCATE 

M_ex 1 t  <  *  ) 

6250 

DEALLOCATE 

Mnl (  •  ) 

6260 

DEALLOCATE 

Ma2(  •  ) 

6270 

DEALLOCATE 

fia3(  •  ) 

P 
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S2Sid 

fni0 

G340 

G360 

roB0 

G370 

S3B0 

G3G0 

G400 

G410 

B420 

G430 

B440 

G450 

G4G0 

G470 

G4G0 

6490 

GB00 

G510 

G520 

G530 

G540 

G550 

G5G0 

G570 

GG80 

6B90 

6BO0 

GGI0 

GB?0 

GB30 

G640 

GG50 

GG60 

6670 

GGB0 

G690 

G700 

G7I0 

R720 

G730 

G740 

G750 

G7G0 

G770 

G780 

G790 

6800 

6010 

6920 

6030 

6840 


DGAI  l.UCAIG  *  ) 

OGAILOr^^rF  0<  •  ^ 

nr iLH'ni r  pf  ( .  > 

nrALLOCAIF  >'(•) 
I'FY  I.A6EI  S  ofj 
PRHUEM  19  CRT 

I 

GO  10 


6X1  r  PROGRAM  AND  OEAU.nrATP  ALL  POF^FFRS  AMf'  PAIMc 


Deri  I  1  oca  If’.*  ' 

ASSIGN  ^OaTa_paUil  TO  * 

ASSIGN  Rnata_path2  TO  • 

DEALLOCATE  Cal ( *  > 

DEALLOCATE  DataC) 

DEALLOCATE  Pa(  *  > 

RETURN 

I 

E  i  n  1  *5  h  t  1 

IF  Ailocatad=1  THEN  GOSUB  Deallocate 

PRINTER  IS  CRT 

LOAD  ''Z0C_.MENU"  ,  10 

END 

I 

'SUBROUTINE  TO  SET  UP  GRAPHICS  WINDOW 


I 

SUB  Plot 

I 


•Subroutine  to  display  plot  screens,  less  the  plot  of  anv  '-nr  ves 
I  for  the  specified  variables  in  the  C0(1/P  1  o  t  _1  aljn  I  ?  /  line. 

( 


COM  /P lo t_l abe 1 s/ 
CLEAR  SCREEN 
KEY  LABELS  OEP 
GINIT 

X_ronge*=X  f -Xo 
Y^range-Y  f-Vo 


Xo  ,X  F  ,Yo  ,yf  ,Dx,  ,Dy  ,Ti  t  leT;  ,X_labe  IS  .Y^  label  T) 


Itnitialir.e  qrapfi  routine 
'  Lena*  h  of  Y - ^ .  i s 
'  Leng  t  h  of  Y  -  a  '•  i  « 


LORG  6 

MODE  100*RATIO/2 ,100 
C5IZE  3 
LABEL  Titled 
MODE  l00*RATIO/2 ,0 
LORG  4 

LABEL  X_label$ 

DEG 

LUIR  90 
LORG  6 
MODE  0,50 
LABEL  Y_label$ 

LOIR  0 
LORG  2 

UIEUPORT  10,90^RATIO,10,90 


'Character  ref  ptJton 

'Move  cursor  to  scr'oen  lo''  for  labels 
'Sizes  I  atir  I  1  ng 
'Plot  title 

'Move  cursor  to  hot  ton  cerHer'  screen 
'Character  r<=‘ f  j^trbotton  renter 
'X~a>.  is  label 
'OesiQ  degrees  for'  LDIR 
'Sets  y-a»is  label  on  end 


I  -  a  r  i  3  label 

'Reset  1  al'te  I  t horirmt'^l  1  er> '  a  t  I  on 
•  Chr  ref  ptMeft  renter 
'Sets  graph  srr  p*='n  size 
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Gfl70 

G3B0 

GB0O 

GBIO 

G  Bj0 

6?40 

GBGO 

mG0 

r.B70 

G9B0 

G990 

7000 

70  1  0 

7020 

7030 

7*  0  4  0 

70G0 

ZOGO 

ZO’iTO 

70B0 

7090 

7100 

7110 

7)20 

7130 

7140 

7190 

71G0 

7170 


rOA^MI’  iHn.x  .^r  ourul  V' t  \ 

Ulfino'j  Xo,Xf.Yo,Yr  •  'nt  icnath-^  in  OlFUf'fjFl 

AX F5  X  r’fi nue  / Dx  ,  V  _r  i nQf* / LK  ,  *  <>  ,  t  o  l  A.-  u;  1  ''r  r  « 1  |  )  "  f  1 

AX'FG  X  r^nQ^/r)y,Y_r'?nQ^/nv'.yf.Xf  .^f  uppri  »  »Qtif 

FiR  H)  f T* nqfi  /  n>.  ,  Y  r-^riqp/Ov  . o  ,  >  O  ,0  <  ,()v  ,  .  00  1 

(LIP  Air  iSo  prjr,^,  ..ufXMl-  OICl.irORT 

(/  3  I  7  fl  3 . 0  ^  .  4  I  p  -  1  r  \  ^•>  O  1  I  - 

I  OP0  G  '  fjMr'ih''‘t'  **  ' 

pop  f  -Yn  fn  Xf  GIFP  V  r^mnp.P 

flML'L  1  .rri-,01*r 

I  ARFI  "S{Mr, 
riF^l  1 
I  AF^O  B 

POP  I-Vo  fO  Vf  FTFP  Y  r  -=inrj-- f)v, 

IF  APG(  I  1  .0F-5  IHFIl  I  “0, 
nnOF  Yo-.Ol  •X_rrinQ^  ,l 
LARFL  USING 
NFXr  I 
CLIP  UN 

I 

SUBENU 

I 

SUB  Sci'Jar'^ '  Xo  , X  f  ,  Yo  ,  7  f  ,  5c  ) 

(SubroLiiine  to  plot  squaf’O"'  afound  t  tir  local  or  ujmi  d*'?  <  qh-t  t  r 
'by  the  PLOT  statenent. 

Xd-ScH  Xf-Xo  ) 

/d-5cM  Yf  -/o  )*RATI0 
PPL  or  -Xd,yd,-2 
PPLOT  Xd,Yd,’l 
PPLOT  yd,~Yd.-l 
RPLOT  -Xd.-Yd,-1 
PPLOT  -Kd.Yd.2 
SUBENI) 
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APPENDIX  E.  SELECTED  DATA 


Oata  Print,  Out  fnr  Zoc  tt  I  ,  Run  it  3  .  F  i  1  eZP  1 2 1  I  I  (o 


Period  bet»oeen  samples  <  sec  ) 

:  .mZZ3 

333333333 

Sample  collection  rate 

300 

Number  of  sanpies  per  port: 

10 

Length  of  data  rtin  (sec^: 

34 . 1 

The  scan  type  i ' : 

2 

Number  of  scans / t ra verses : 

33 

Increment  of  traveng©: 

.0G25 

I  nclm s 

Atmospheric  pressure  is: 

14.71 

n  s  1  a 

Tunnel  Pressure  Ratio  is: 

2.03eR4334S';3 
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Figure  El.  Run  3, 16  Nov  1992  (Raw  Data) 
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Figure  El.  (cont)  Run  3, 16  Nov  1992  (Raw  Data) 
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Figure  El.  (cont)  Run  3, 16  Nov  1992  (Raw  Data) 
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Figure  El,  (cont)  Run  3,  16  Nov  1992  (Raw  Data) 


122 


S':  nn 

I''’'!  1; 

"r 

. 

2  9 

30 

7  I 

-r  ) 

i 

i7.r>ri2 

35.7BB 

EM  . 

5 1 .851 

■p 

1  7  .  R  M 

35.G45 

54.615 

51 . 850 

I7.R23 

.35.P54 

54.523 

52.210 

4 

1  7  .  B  I  1 

35.  BB.’ 

54.680 

52 . 56  1 

1 7 . RR I 

.’■S .  y07 

B'l  .f;  ;i 

52 . 5f^B 

G 

I7.SG) 

35.798 

54 .584 

52 . 77(1 

7 

1 7 . HR  1 

35.R02 

54  .RSfo 

52.P7R 

G 

1  7 . 4  72 

36.024 

5'1 .576 

T  '■>  "7 

T 

1 7 . HR  1 

35.769 

54.593 

82.679 

10 

)7.4RR 

35.722 

5-1  .  4  87 

52 . 20 1 

1  1 

1 7.H43 

35.693 

5 1.^76 

51.419 

1  r 

17.H34 

35.77P 

54.515 

49. 9G2 

17.H2H 

35.684 

54.518 

•16 . 080 

1  4 

1  7.H.14 

35 .722 

54.575 

44  .  1.32. 

I7.HR1 

35.684 

54.515 

40.756 

IR 

1  7  ,  EM  7 

.35.599 

54.480 

38.8B4 

17 

17.491 

35 . 6  1  B 

54.429 

37.396 

IR 

17.561 

35 .712 

54 .445 

3G.E367 

19 

1  7.5-13 

35.655 

54.480 

35.963 

17.50R 

35.608 

54.375 

35 . R75 

Z  1 

17.534 

35.551 

54 . 462 

35.585 

C  ‘2 

17. 42R 

35.561 

54.436 

35.57f; 

2  j 

1 7 . 366 

35.693 

54.793 

35.649 

2A 

17.357 

35. BOB 

54.783 

35.556 

;:5 

17.419 

35.514 

54.636 

35.549 

2S 

17. 445 

35.570 

54.584 

35.594 

Z'J 

17.58R 

35.504 

54.619 

35.594 

CD 

Tsi 

17.G77 

35.684 

54.549 

35.640 

29 

17.632 

55.551 

54.471 

35.558 

30 

17.597 

35.665 

54.410 

35.549 

31 

17.543 

35.627 

54.488 

35.558 

32 

17.543 

35.636 

54.567 

35.513 

33 

17.481 

35.580 

54.340 

35.406 

Figure  El.  (cont)  Run  3, 1 6  Nov  1 992  (Raw  Data) 
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Figure  El.  (cont)  Run  3, 1 6  Nov  1 992  (Loss  Distribution) 
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Figure  E2.  Run  4, 1 9  Nov  1 992  (Raw  Data) 
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Figure  E2.  (cont)  Run  4,  1 9  Nov  1 992  (Raw  Data) 


127 


?  C  n 


Port  Niinher 


IS 

18 

17 

IH 

1  9 

20 

'  1 

1 

30 

.333 

30 

.  593 

30 

.708 

31 

.018 

3  1 

.836 

32 

.  1.89 

32 

.302 

2 

50 

.523 

30 

.584 

30 

.979 

3) 

.008 

:^i 

.  .1  95 

31 

.913 

'2 

.389 

30 

.  4  53 

30 

.760 

31 

.044 

j  1 

.  oon 

31 

.  4  33 

7  -• 

.  005 

32 

.444 

4 

30 

.34  3 

30 

.900 

30 

.988 

30 

.938 

>1 

.6. "6 

.051 

j 

.280 

30 

.513 

30 

.578 

30 

.792 

3 1 

.018 

31 

.  177 

.31 

.  931 

32 

.  444 

B 

30 

.583 

30 

.854 

30 

.879 

31 

.034 

31 

.  45  1 

.685 

.461 

7 

30 

.R23 

30 

.803 

30, 

.879 

30 

.999 

3! 

.854 

.218 

32 , 

.544 

P 

30 

.383 

30 

.514 

30 

.871 

30 

.999 

31 

.530 

.098 

-7  T 

.595 

g 

30 

.423 

30 

.725 

31  , 

.079 

31 

.  190 

31 

.889 

32 

.089 

T  1 

.377 

10 

30 

.54  3 

30 

.881 

31 

.035 

31 

.  129 

31 

.4  59 

31 

.878 

.318 

!  1 

30 

.393 

30 

.594 

30, 

,879 

31 

.025 

3  t 

.583 

32 

.005 

32  , 

.394 

12 

30 

.393 

30 

.505 

30, 

.801 

30 

.889 

31 

.585 

31 

.894 

32 

.327 

!3 

30 

.  403 

30 

.584 

30. 

.853 

31 

.051 

31 

.565 

-7  n 

.051 

3 

.427 

14 

30 

.803 

30 

.725 

30. 

.905 

30 

.790 

3  1 

.4  33 

32 

.  134 

j/. 

.427 

15 

30 

.583 

30 

.733 

30. 

,957 

31 

.042 

31 

.4  95 

31 

.720 

32  , 

.  188 

!G 

30 

.385 

30 

.  5  2  j 

30. 

.706 

30 

.929 

.31 

.530 

31 

.950 

7  n 

.394 

17 

30, 

.383 

30, 

.514 

30. 

,714 

30, 

.  947 

31 

.451 

31 

.858 

7 

.Jt.  , 

.268 

18 

30 

.523 

30 

.  444 

30, 

.714 

30 

.999 

31 

.4  33 

31 

.8.30 

32. 

.352 

!  9 

30, 

.293 

30, 

.479 

31  , 

,018 

30 

.92  1 

31 

.  421 

31  , 

.  950 

32  . 

.335 

20 

30, 

.273 

30, 

.593 

30. 

.898 

30, 

.938 

31 

.585 

31  , 

.  859 

32, 

.228 

2! 

30, 

.373 

30, 

.883 

30, 

,740 

30, 

.903 

31 

.54  8 

32, 

.014 

32  , 

,  344 

-1 
^  i. 

30. 

.373 

30, 

.587 

30, 

.740 

30 

.808 

31 

.539 

31  , 

.  775 

32  . 

.218 

23 

30. 

.  583 

30. 

.523 

50 . 

,749 

30, 

.784 

31 

.504 

31  , 

.913 

32  , 

.  377 

24 

30. 

.353 

30, 

.584 

30. 

,801 

30, 

.880 

31 

.592 

31  , 

.  959 

T  -1 

.  377 

25 

30. 

.204 

30. 

.418 

30. 

,708 

50, 

.877 

31 

.390 

31  . 

.  922 

7  n 

,  151 

2B 

30. 

.263 

30. 

.383 

30. 

,402 

30, 

.955 

31 

.258 

31  . 

,  ,9 

32  . 

.  1  43 

27 

30. 

,323 

30, 

,  444 

30. 

,558 

30. 

.877 

31 

.247 

3  1  . 

,  793 

32  . 

,335 

28 

30. 

.443 

30. 

.628 

30. 

775 

30. 

.843 

31 

.548 

.'  1  . 

,  859 

>2  , 

,302 

29 

30. 

,393 

30. 

.523 

30. 

838 

30. 

,912 

31 

.504 

31  . 

,  931 

159 

30 

30. 

.493 

30. 

.479 

30. 

723 

30. 

.877 

31 

.20.3 

51  , 

,793 

-?  “* 

J  C  , 

,  134 

3  1 

30. 

,.393 

30. 

,854 

30. 

957 

31  . 

,018 

31  , 

.415 

31  . 

,994 

T  n 

. 

318 

32 

30. 

,353 

30, 

.453 

30. 

792 

31  . 

.060 

31  , 

.336 

31  . 

,931 

? 

)4.  . 

235 

33 

30, 

,643 

30. 

,453 

30. 

853 

31  . 

.051 

31  . 

.283 

32  . 

,014 

32  . 

228 

Figure  E2.  (cont)  Run  4, 19  Nov  1992  (Raw  Data) 
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Figure  E2.  (cont)  Run  4, 1 9  Nov  1 992  (Raw  Data) 
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Figure  E2.  (cont)  Run  4, 1 9  Nov  1 992  (Raw  Data) 
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Figure  E2.  (cont)  Run  4, 1 9  Nov  1 992  (Loss  Distribution) 
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Figure  E3.  Run  2, 1  Dec  1992  (Raw  Data) 
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Figure  E3.  (cont)  Run  2, 1  Dec  1992  (Raw  Data) 
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Figure  E3.  (cont)  Run  2, 1  Dec  1992  (Raw  Data) 
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Figure  E3.  (cont)  Run  2,  1  Dec  1992  (Raw  Data) 
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Figure  E3.  (cont)  Run  2, 1  Dec  1992  (Raw  Data) 
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Figure  E4.  Run  1,  7  Dec  1992  (Raw  Data) 
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Figare  E4.  (cont)  Run  1,  7  Dec  1992  (Raw  Data) 
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Figure  E4.  (cont)  Run  1,  7  Dec  1992  (Raw  Data) 
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30.772 

31.190 

31 .091 

30.869 

30.964 

31 . IPO 

30.900 

30.751 

30.045 

31 . 16R 

31 .040 

30.79.3 

30.909 

31 .289 

30. 669 

30.827 

30.790 

■^1.157 

30.899 

30. BIO 

30.809 

31.210 

31 .030 

30.918 

30.827 

31.157 

30.925 

.50.018 

30.863 

31.160 

30. 952 

30.810 

30.745 

31.016 

30.875 

30. 760 

30.654 

31 .066 

30. 960 

30.642 

30,827 

31 . 157 

30.934 

.30.709 

30.708 

31 .026 

30.890 

30.718 

30.763 

31 . 160 

30.073 

30.650 

30.76.3 

3) .056 

30.724 

30.718 

30.790 

31.117 

30.917 

30.701 

30.617 

31.127 

31 .065 

30.558 

30.553 

30.925 

30.9.30 

30.726 

30.626 

30.975 

30.004 

30.659 

Figure  E4.  (cont)  Run  1,  7  Dec  1992  (Raw  Data) 
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Figure  E4.  (cont)  Run  1,  7  Dec  1992  (Raw  Data) 
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Figure  E4.  (cont)  Run  1,  7  Dec  1992  (Lower  Passage  P/Pt  Distribution) 
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FlgareE4.  (cont)  Run  1,  7  Dec  1992  (Upper  Passage  P/Pt  Distribution) 
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+  I' i  r  •:  “)n<- Trni'rrrrH  ■  .  f  < 


30  31  V  31  U  3R  3.'  in  33  30  41  33  31  14  33  -Iti  3?  31  31  50  51 


Tol^il  Pr  e 5 


The  cascade  loss  coefficient  based  on  inlet 
dynanlc  pressure  as  calculated  usinrj 
naas  averaged  quantities  as  shown  below. 


Ptnal  ~ 

55.1654793409 

P9IA 

PtnaZ  = 

52.3818787735 

PSiri 

PtI-PI  - 

3B. 1988140382 

PSIA 

Ttavg  '» 

513  deg  R 

W  bar  - 

.0768975625679 

Figure  E4.  (cont)  Run  1,  7  Dec  1992  (Loss  Distribution) 
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APPENDIX  F.  SAMPLE  RN’C'Q.D)  INPU  F  AND  SUMMARY  Ol’  I^ES  I  AR  I  S 

1.  Sample  RVCQ3D  Input  File: 


•HACI  pYriAfllCf^  I.AB  TRANSOrirr  FAH  CASCAPR' 

r.nll  in^250, 11^49, mPl-50,mil  =  l  12  r<Pnd 

^<iil2  Dr?t:q-4,  ivdP-1  ,irs-l,ppi-0.?,  ppj  =  0 . 4  , 

1  =  4  .  S,  av2=  1 . 00 ,  qv4- 1 . 0  r<pnd 


^  ti  n  ibcin  =  l .  ibcpx  =  l ,  i  tmax=2000  ,  i  i  =  1 ,  iie?Po=l , 

i  r®F;=  10,  icrnt  =  l0,  ixi  m=0  f^ptid 

frt>14  ^mlp=:1.10,a]lc‘  =  56.49,  bet  p =5  3 .0,prat  =  0.70  4,q  =  l  .4, 
pOi  n=  I  .  00000,  to 3  .  000  00  f.end 

/Vnl5  i  1 1  =  2  ,  jedqe=3  0  ,  r  pnr  =  17  .  ft 3«^  ,  prnr=0 .71,pitr  =  0.90, 
tw=0 . 0,  vi3pwr  =  0 .83500,  cinutm=14 . 0  r*pnd 

KrtilS  oniPcja=  0 . 000000 ,  nblade=  l,ntnn  =  0  r.eend 

2.  Summary  of  RVCQ3D  restart  inputs; 

TABLE  XII.  SUMMARY  OF  RVC03D  RHS  I'ART  INPU  TS 


Ilerntioiis 

P2/P11 

Resirliiai 

SiiiootJiiiig 

(i-riirection) 

Re.sidiial 
Sino<»tliiiig 
(J -direction) 

0-500 

0.76 

0.55 

0.65 

'5IO-IOOO 

0.74 

0.55 

0.65 

|l010-1500 

0.72 

0.55 

0.65 

1510-2000 

0.71 

0.45 

0.55 

2010-2500 

0.71 

0.45 

0.55 

2510-3000 

0.71 

0.35 

0.45 

3010-4000 

0.71 

0.35 

0.45 

4010-5000 

0.71 

0.3 

0.4 

5010-7000 

0.704 

0.3 

0.4 
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APPENDIX  G.  SAMPLE  CALCULATION  USING  KOCH  AND  SMITH 


The  following  Is  a  loss  estimate  based  on  Itie  Kodi  and  Smith  modH  (Ref  75\.  Pxpefimental 
results  will  be  used  as  inputs  wliere  possiNe  and  eslimales  of  other  quantities  will  be  Inpul 
elsewhere,  aade  anf  passage  geometry  is  determined.  1  he  deviation  angle  Is  estimated  using 
NASA  SP-36  (Ref.  27|  and  AGARD  R-745  (Ref.  26).  The  loss  estimate  is  obtained  using  relations, 
figures  and  tables  from  reference  33  and  34. 

A  The  cascade  and  passage  geometry  for  the  a  suction  snrface  inndence  of  1  15 
degrees  is  presented. 


Variable  geometry: 

Ai  „  =  0  d:g 

Blade  Camber: 

6=  6  66773  deg 

Maxitnurn  Thickness: 

tpiax  '  0.22866  01 

Chord: 

c  =  6  in 

*max 
fcrna.x  =  - 

Tiiickness  (LE) 

t  j  g  =  0  Ot  5  in 

c 

l/cmax: 

temax  =  0  03811 

Blade  Spacing: 

3  =  3  in 

c 

G  ■  - 

Solidity: 

o  2 

s 

Slagger  Angle: 

^  =  5 1.84  deg 

Wedge  Angle: 

wedge  =  3.5  deg 

Metal  angles: 

K,n,  =  53.59  -drg 

^  2m  ■  ^  lin  ■ 

<2,,,  =  -16  02227 ‘deg 

Suction  Surface  Incidence: 

«S3  =  1.15  deg  f  Aigs 

Suction  Surface  Metal  Angle 

K-lm  +  w'dge 
K  |g  =  55.34  'deg 

Blade  Incidence  Angle: 

"  Us  +  ts  “  ^  Im) 
*m  =  2.9 -deg 

Inlet  Flow  Angle; 

P  t  ■  ‘m  +  Im 
P  I  =  56.49  ‘deg 


Figure  Gl.  Loss  Estimation  by  Koch  and  Smith  Method 
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B.  Deviation  angle  Is  esSinaled  using  Ihtee  methods.  T  he  fiisl  two  are  from  NASA  SP-36  and  Die 
Ittlrd  Is  a  modified  Carter  rule  taken  from  AGRARU-R  745. 

Using  NASA  SP-36  two  -methods-  ran  lie  used  to  find  deviation  angle  wliich  yield  similar  results: 


Method  1  (EQN  268) 

Method  2  (EQN  26P) 

1  Zero  camt>er  deviation  for  10%  thick 

65  series  airfoils  as  a  frjncbon  of  inlet 
flow  angle  In  Figure  161 

1  Slope  function  for  solidity  of  1  taken  from 

Figure  166 

-  2  5  deg 

3 

Q 

O 

o 

2.  Slope  function  as  taken  from 

Rgure  168  as  a  function  of  Inlet 
flow  and  solidity 

2.  Solidity  exponent  taken  form  Figure  164. 

b  r  0.72 

m  =  0.185 

3.  Corrections  to  zero  camber  deviation 
for  C-series  airfoils  and  thickness.  The 
Bilckness  correction  ts  from  Figure  172 
as  a  function  of  t/c. 

^  6sh_C_scrics  ~ 

Kgi  =  0.32 

4.  Corrected  zero  camber  deviation 
from  equation  271. 

3.  Using  equation  269  and  the  zero  camber 
deviation  from  metliod  1,  tlie  deviation  can  be 
estimated. 

“  ^5sh_C_scTics  |Q<^ 

52-5o^»(^) 

5.  Estimated  deviation  angle  from 
equation  268. 

\  cr  / 

52  “  2.1 1463 -deg 

8,  :  Sgl-m* 

5t  =  2.11353 -deg 

Fgure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smith  Metliod 
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Molhod  3  (M(Kiffied  Cm  tor's  f^ulo) 


1.  Carter's  rule  stope  ftjncljon  as  taken  form  Figure  100  in  NASA  SF^  30:  ^  =  5t  .S‘\  ‘H?)? 

^"c_ca  = 

^ c_pa  “  0.275 

2.  Carter’s  rule:  (EON  270  In  SP- 36) 


_  ca 

^car_ca 

1.55588 -deg 


^cai_pa 
Scar_pa=  E29657‘dcg 


3.  Modified  Carter's  rule  relation  from  AGARCFR-745  (EQN  3.5) 

53  =  .  1.099379  +  3.0186-5,^_^,  -  <>.1988 
63  =  2.48024  deg 
5  =  53 

Now.  outlet  flow  angte  can  be  estimated  using  llie  deviation  angte<s)  found  above. 
P2  =  Kj.., 

Total  flow  turning  Is..  1  '^2 

0  2  *  49 .40251  * deg  e-  7.08740 -deg 


C.  Cascade  losses  are  calculated  using  the  Koch  and  Smith  model  outtined  in  AGARD  R  745 
and  described  In  "Loss  Sources  and  Magnitudes  In  Axial-Ftow  Compressors*  by  C.  C.  Koch  and 
LH.  Smith.  Jr. 

1.  f^ofile  Losses: 

a.  The  first  step  is  to  calculate  tlie  following  parameters: 

Velodlies  and  Macfi  numbers  will  be  taken  as  the  average  value  and  It  should  be  * 
noted  that  for  the  actual  machine  lliese  would  be  relative  velodties: 


V  •  =  1306.60877-  — 

^  see 


^2av«  717.18277  -A 

®  sec 


M|gvg  =  1.38862 


Figure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smith  Method 
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Rmllfis  vahifx*  mu'^l  bP  dPlPimlfiod  lo  rompiplHy  ifliM/p  l!ip  nuxiH.  fliptp  pRopI 
cancels  ou!  fof  ttio  2-U  cnsp  so  Hie  radius  shown  Is  ad^bafy 
r  I  =  10  in  r  2  =  lo  in 

M  +  f  2 


2 


,  -  I0*in 


Ofier  constants  defined  for  use  in  Ids  modpi  we  as  sliown 

K|  =  0  2415  K2  =  0.4458 

K3  :=  0.7688  K4  r  0  6024 


Velocity  diagram  parametets: 

.  .pi*pi  „ 

Pmcan  *  ^  P 


52.94626 -dtg 

^*tl  =  l«vg  "*(P  1)  Mt|-  0.76663 

Vel  =  V,„g  ,i,(p,)  Vgi  -  I0«9.43665-£. 

Ve2  =  ,i,(P2)  Vgj-  544.5  56  74 

Annulus  parameters  c4  queslionalio  value: 

A,i  :=  f  8in(^)(r2-  r  |)  A,,  -  O-b’ 

A  ^  A  ,1 


£ 

«cc 

JL 

see 


K20- 


•(Pmc«i) 


(- 


A  tl  -  A 

3  A^ 


<  ttiis  term  =  10 


Density  arni  drcutallon  paramters: 

r|V0!-r2Vc2 

^sUr  ”  w 

'  mean  O'  ^  lavg 


1.31723 


Figure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smith  Method 
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rnnfv«lonf  difftjsion  fAclor : 


Vl«g 


^  2avg 


(5in(n  ,) 


Ki  o  r, 


■y-il 


P  P  •:»» 


1  4  K 


K,,  r 


Dcq  "  1.8012^ 


b.  Ihonpxt  stop  is  to  uso  Big  nwflntjUos  atwvo  as  woil  gs  flow  t|nant}lips  In  (Im  figuros 
rontnlnod  In  llw  Kocli  and  SmlBi  pnpof  Ttio  ougoUBps  oblGitiod  will  l>o  usotl  hi 
equation  2  of  AGARO-R-745  (wtiirfi  Is  equalon  264  ol  SP-^Vj) 

Wifh  Doq  and  Inlet  Re,  figures  2a  and  b  can  boused  to  find  Moniofiium 
Bilckness  to  chord  and  TraHhig  edge  boundary  layer  form  factor 

Re  ijjyg  :r  mcan^R^l)  Re  *  9  10881*  fO'' 

Deq-  1.80124 

0^1  ;=  0.0075  :=  1.57 

A  rorroclon  for  inlet  Mach  Number  Is  provided  by  Figure  3  as 
a  llinclon  Deq  and  Ml. 

®M1  =  ”MI  =  *  23 

A  oorreclon  for  stream  lube  correclon  based  on  h14i2  Is  given,  but  Is  Impossible  to 
esimate  In  the  currenl  experimental  oonfiguralon. 


A  Ra^roughness  Momenljm  1  Wckness  correction  Is  provided  iisliig  ks 
from  Appendix  2  end  Rgur e  5  bolt  of  tie  Koch  end  Smith  paper 


Assuming  a  surface  roughness  of  ASTM  Paper  number  180 


kajV-  2.<)866. to- ^in  k.  :=6.2k^;^ 

=_JL  k^-  0  00073 

ORe 


Then  Figure  5  provides  corrections  as  a  funcBon  of  Re 


0^,  .=  1.25  and  for  a  rotiqf mess  Reynolds 

number  as  sliown,  tlm  Hfe  Is 
corrected  In  ttie  same  marmer, 
(le  power  vailatlon  of  -0.06  Is 
Mks  =  I  25  not  applied.) 


^  _  k,  mcmi^p  V 

nic«i(n,) 

R„  -  6610  23772 


Figure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smith  Method 
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Ilm  roffecled  mampnliim  fliirkiioss  per  clioici  and  wakp  form  farfor  arp 


=  ®MI  ®lc<i  ^cl 


0^.  -0  00656 


”  -  *^Mi  *•(««  ‘‘if,  n  =  2^n«S 


Now.  rising  p(]iiaflnii  7.  Hip  pioljle  lossps  ran  ho  doformlnofl 


"'iw  rrofilc 


r  2  f0_)  - - - 


nn') 

'(('2) 


'“birjTofilc  “  002608 


2  II 


?  II 


7.  Sfiock  losses  and  leading  pdge  Himlness  losses  can  be  calriilalotl  as  follows: 

a.  Sfiock  losses  obtained  torn  Figure  1  of  Koch  and  Sniilli 

®b8r_sliock  ■  ® 

b.  I  eading  edge  bluntness  losses  otilalnod  as  sliown: 


As  •=  R 


I  -  - 


[  1.28  (M,.v*-I).  096.(M 


-  u 


^tlm*  (*  -  ^Lrnlio) 


®b«  IB  - -  ®b* 

‘ll.vg 


3.  Finally,  tlie  lotel  cascade  losses  esflmaled  by  8ie  model  aie 

®b«r  =  ®bflf_rxorilc  *-  ®biw.sboclt  *  ®bw_LR 
®  b*  “  0  09963 


Figure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smitli  Metliod 


154 


4.  CofMpwo  niid  numeilcnl  vftlnos. 


iiiiiii 


-  0  I  f2M 


fi> 


0)  - 

-  400 

"*  TO 

exp  jitmtio  '  — 4  0(1 

cxp_cnip%  "  1-31097 

Figure  Gl.  (cont)  Loss  Estimation  by  Koch  and  Smitli  Metliod 
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